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PREFACE  AND  SUMMARY 


This  Memorandum  is  a  supplement  to  the  Information  Pro- 

★ 

cessing  Language-V  Manual,  detailing  a  new  alternate  format 
in  which  IPL  routines  and  data  can  be  represented.  Specifi¬ 
cally,  LIPL  (Linear  IPL)  is  a  horizontal,  linear,  paren¬ 
thesis  format.  This  Memorandum  also  describes  a  new  IPL 
Basic  Process,  J164,  for  in-process  loading  of  LIPL  routines 
and  data.  J164  has  been  coded  as  an  IPL  routine,  and, 
therefore,  can  be  used  on  any  IPL  computer.  A  description 
and  listing  of  this  routine  is  included;  card  or  tape  copies 
of  the  routine  can  be  obtained  by  writing  The  RAND  Corpora¬ 
tion  . 

LIPL,  like  the  parent  IPL  languages,  was  developed  at 
The  RAND  Corporation  and  Carnegie  Institute  of  Technology. 
Since  it  packs  more  information  per  card  than  the  standard 
IPL  representation  and  since  it  does  not  have  a  fixed-column 
format,  it  should  be  especially  valuable  in  card-reader- 
limited  systems  and  in  remote  teletype  operations. 

The  use  of  LIPL  is  detailed  in  the  Introduction,  which 
is  followed  by  a  Reference  section  arranged  for  quick  look¬ 
up  of  information  by  the  LIPL  user.  Section  III  describes 
the  IPL-coded,  in-process  LIPL  loader,  J164;  the  Appendix 
gives  a  complete  listing  of  this  routine.  Section  III  and 
the  Appendix  are  included  solely  for  the  use  of  the  systems 
programmer  responsible  for  incorporating  LIPL  into  a  particu¬ 
lar  object  machine. 

•k 

Allen  Newell,  F.  M.  Tonge,  E.  A.  Feigenbaum,  B.  F. 
Green,  and  G.  H.  Mealy  (eds.),  Information  Processing 
Language- V  Manual,  2nd  ed. ,  Prentice-Hall,  Inc.,  Englewood 
Cliffs,  New  Jersey,  1964. 


-V- 


CONTENTS 

PREFACE  AND  SUMMARY  .  iii 

Section 

I.  INTRODUCTION  .  1 

II.  REFERENCE  .  9 

Symbols  . .  9 

Data  Terms  .  11 

Lists  .  12 

Load  Decks  .  13 

LIPL  Loader  J164  .  13 

III.  LIPL  LOADER,  J164  .  17 

Appendix 

J164  LISTING  .  37 


-1- 


I.  INTRODUCTION 

Linear  IPL,  LIPL,  is  an  alternate  mode  for  represent¬ 
ing  Information  Processing  Language-V  routines  and  data  in 
a  horizontal,  linear,  parentheses  format.  J164  is  a  new 
basic  process  for  in-process  loading  of  routines  and  data 
represented  in  LIPL. 

Consider  the  example  of  a  J165  load  deck,  shown  in 
Fig.  1.  The  described  list  LI  can  be  represented  in  LIPL 
as  follows: 

Ll=(9-1  SI  S2)  9-l=(0  A1  VI) 

Parentheses  are  used  to  delimit  lists;  an  equal  sign  indi¬ 
cates  that  the  object  to  its  right  is  named  by  the  symbol 
to  its  left.  Alternatively,  the  sublist  can  be  inserted 
directly  into  the  list: 

Ll= (9- 1= (0  A1  VI)  SI  S2) 

In  this  case,  we  need  not  name  the  sublist: 

Ll=( (0  A1  VI)  SI  S2) 

J164  will  automatically  give  the  unnamed  sublist  a  local 
name . 

The  data  list  L2  can  be  represented  in  LIPL  as  follows 


L2  =  (0  9-0  9-1  9-2  9-3)  9-0=+17  9-l=-73. 2 
9-2=$HOUSE$  9-3=/ 3077560 


NAME  MPQ  SYMB 


OOOl  1  i  t  i  i  t  l  i  i  222222222233333333334 
78901234 56  78901  2345678901  234567090 


DATA  HEADER 
DESCRIBED  LIST 


SCRIPTION  LIST 


rKv 

m 

m 

K«J 

lv»v 

KvJ« 
K<V 
Kvv 

Ivvvl 


5 

y 

1 

LINK 

34  56  7 


55566 
2  3  4  5^7  0  9  0  1 


i 

} 


DECIMAL  INTEGER  17 
FLOATING  POINT  -73.2 


v»v 

vCv 

Cvv 

►%Y« 

VW 

W 

tty 

»v« 


OCTAL  INTEGER  3077560 
PRINT  LIST 


ROUTINE  HEADER 

TEST  IF  SYMBOL  (0)  IS  ON  LIST  (1) 


TYPE  FIVE  START  CARD- -START  AT  RO 


Fig.  1—  Example  of  a  J165  load  deck 
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A  plus  or  a  minus  sign  indicates  that  the  number  to  its  right 
is  a  numeric  data  term.  If  no  decimal  point  occurs,  it  is 
loaded  as  an  integer.  If  a  decimal  point  does  occur,  it  is 
loaded  as  a  floating  point  number.  The  decimal  point  may 
also  occur  at  the  beginning  or  the  end  of  the  number  (-.25 
or  +10.).  Dollar  signs  are  used  to  delimit  alphanumeric 
data  terms.  A  slash  indicates  an  octal  integer.  Just  as 
sublists  may  be  placed  directly  inside  their  main  lists,  data 
terms  may  be  placed  directly  inside  the  lists  they  are  used 
on: 


L2=  (0  9-0=+17  9-1—73.2  9-2=$HOUSE$  9-3=/3077560) 

The  names  of  the  data  terms  may  now  be  dropped  if  desired: 

L2=(0  +17  -73.2  $H0USE$  /3077560) 

The  print  list  L3  can  be  represented  in  LIPL  as 
follows : 


L3= (0  $THIS$  $  IS  L$  $IPL$) 

If  five  or  fewer  columns  separate  the  dollar  signs,  the 
characters  are  loaded  left-justif ied  and  the  data  term  is 
completed  with  blanks  if  necessary.  This  print  list  can 
also  be  represented  in  LIPL  as  follows: 

L3=$THIS  IS  LIPL$ 

If  more  than  five  columns  separate  the  dollar  signs,  J164 
assembles  a  list  of  alphanumeric  data  terms.  The  head  of 
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the  list  contains  an  internal  zero  and  the  data  terms  are 
given  local  names.  Five  characters  are  packed  per  data 
term,  except  that  trailing  blanks  of  one  data  term  are 
repeated  as  leading  blanks  of  the  next  data  term.  Trailing 
blanks  are  repeated  since  J157  suppresses  them.  Therefore, 
it  is  possible  to  enter  a  print  list  into  a  print  line  by 
simply  generating  its  symbols  using  generator  J100  with 
subprocess  J157. 

The  routine  R1  can  be  represented  in  LIPL  as  follows: 

R1=(J50  109-0  J100  J30 , J5)  9-0=(llWO  J2,J5) 

A  P  and  a  Q  may  precede  any  basic  element.  A  comma  indi¬ 
cates  that  the  next  symbol  is  a  link.  This  routine  may 
also  be  represented  as  follows: 

Rl= (J 50  10(11W0  J2,J5)  J100  J30,J5) 

The  routine  R2  can  be  represented  in  LIPL  as  follows: 

R2=(J50 ,9-1  J60  709-2  12H0  11W0  J2  709-1,9-2  J30,J8) 

When  a  link  occurs  in  the  middle  of  a  list,  it  is  also 
used  as  the  name  of  the  next  cell. 

The  complete  LIPL  load  deck  is  shown  in  Fig.  2, 
exactly  as  it  might  be  key  punched.  Symbols  and  numeric 
data  terms  must  not  contain  internal  blanks  and  they  must 
be  terminated  on  the  right  with  either  a  right  parenthesis, 
an  equal  sign,  a  comma,  or  a  blank.  Blanks  may  not  follow 
a  P  or  a  Q.  Except  for  the  above  restrictions,  blanks  may 


Fig.  2— Example  of  a  J164  load  deck 


DT  LI  -  ( (0  A 1  VI)  SI  S2 )  L2-(0  +17  -7). 2  SHOUSES  /  307  7560)  'ARD  1 
L3  •  STHIS  IS  LIPLS  RT  R1-(J50  10(11WO  J2,J5)  J100  J30.J5)  CARD  2 
R2  'TEST  IF  SYMBOL  (0)  IS  ON  LIST  (1)'  •  (J50.9-1  JbO  709-  2  CARD  3 
12H0  UUO  J 2  709-  1,9-2  J30.J8)  GT  RO  CARD  9 


Ll 

02 

501 

504 

501 

04  0 

502 

CARD 

502 

00  A1 

503 

50  3 

00  VI 

0 

504 

00 

SI 

505 

305 

00 

S2 

0 

L2 

04 

0 

507 

507 

02 

508 

509 

508 

01 

17 

509 

02 

510 

511 

510 

1  1 

73200  +2 

511 

02 

512 

513 

512 

21 

HOUSE 

51  3 

02 

514 

0 

514 

31 

0003077560 

L3 

04 

0 

516 

CARD  7 

516 

02 

517 

518 

517 

21 

THIS 

518 

02 

519 

520 

519 

21 

IS  L 

520 

02 

521 

0 

521 

21 

IPL 

R 1 

00 

J  50 

523 

523 

10 

524 

52b 

524 

1 1 

WO 

525 

525 

00 

J  2 

J5 

52b 

00 

J100 

527 

527 

00 

J  30 

J  3 

R2 

00 

J  50 

529 

CARD  3 

529 

00 

JbO 

5  30 

5  30 

70 

531 

532 

532 

12 

HO 

533 

CARD  4 

533 

1  1 

WO 

534 

5  34 

00 

J  2 

535 

535 

70 

529 

531 

531 

00 

J  30 

J  8 

Fig.  3— Example  of  a  J164  deck  and  assembly  listing 
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be  used  freely  to  improve  the  readability  of  the  deck.  J164 
assumes  that  a  blank  occurs  between  every  card.  Therefore, 
a  symbol  or  a  numeric  data  term  must  not  be  split  across 
two  cards.  Alphanumeric  data  terms  may  be  split  across  two 
or  more  cards.  Comments  may  be  inserted  at  any  point  at 
which  blanks  are  permitted  by  enclosing  them  in  quotes. 

The  domain  of  definition  of  local  symbols  is  from  one 
unparenthesized  regional  list  name  to  the  next  unparenthe¬ 
sized  regional  list  name. 

Three  pseudo  commands  are  shown  in  Fig.  2--DT,  RT,  and 
GT.  DT,  a  mnemonic  for  data,  is  equivalent  to  a  Type-5 
card  with  a  Q  of  1;  it  indicates  that  data  is  tc  be 
loaded.  RT ,  for  routines,  is  equivalent  to  a  Type-5  card 
with  Q  =  0,  and  indicates  that  routines  are  to  be  loaded. 
Since  routines  and  data  must  be  loaded  differently,  J164 
contains  a  switch  that  may  be  set  to  either  routines  or 
data.  These  two  pseudos  are  used  to  flip  this  switch. 
Initially,  when  J164  is  fired,  this  switch  is  set  to  data. 
Therefore,  the  DT  on  the  first  card  in  Fig.  2  need  not 
have  been  punched.  Data  terms  may  be  freely  used  in  routines 
since  J164  recognizes  them  independently  of  the  routine/data 
switch.  The  pseudo  GT,  for  go-to,  is  equivalent  to  a 
final  Type-5  card.  It  indicates  the  end  of  a  load  deck, 
and  the  symbol  to  its  right,  RO  in  the  example,  is  taken 
as  the  name  of  the  next  routine  to  be  interpreted.  Alter¬ 
nately,  the  pseudo  ND,  for  end,  could  have  been  used,  in 
which  case  interpretation  would  continue  with  the  instruc¬ 
tion  following  J164.  A  complete  list  of  pseudos  is  given 
in  Sec.  II.  They  may  be  used  at  any  point  in  the  load  deck 
where  blanks  are  permitted. 
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When  J164  is  fired,  it  will  first  list  the  load  deck 
and  give  a  sequence  number  to  each  card.  It  will  then  give 
an  assembly  listing  that  is  cross-referenced  with  the  load 
deck  by  means  of  the  sequence  numbers.  An  example  of  this 
listing  is  given  in  Fig.  3.  The  assembly  listing  may  be 
suppressed  by  means  of  the  pseudo  NL,  no  listing. 

Since  all  special  characters  are  used  in  LIPL  as 
punctuation,  the  special  character  regional  symbols  must 
be  written  in  LIPL  prefixed  with  an  asterisk.  Thus,  the 
IPL  symbols  (5,  $18,  and  *30  are  represented  in  LIPL  as 
*(5,  *$18,  and  **30. 

Several  other  types  of  symbols  can  be  represented  in 
LIPL--symbolic  internal,  absolute  decimal  internal,  absolute 
octal  internal,  and  mnemonic.  These  are  described  in  Sec. 
II. 

J164  will  frequently  be  used  to  replace  data  structures 
and  routines.  Since  the  old  structures  and  routines  are  no 
longer  needed  and  would  simply  be  using  up  available  space, 
LIPL  provides  a  mechanism  for  erasing  them.  Any  symbol  may 
be  preceded  by  a  period,  in  which  case  the  symbol  serves  its 
normal  contextual  purpose  and,  in  addition,  the  structure  or 
routine  named  by  the  symbol  (if  any)  is  erased.  A  structure 
or  a  routine  erase  is  used  depending  on  the  current  setting 
of  J164's  routine/data  switch. 

Frequently,  many  data  structures  of  the  same  form  must 
be  loaded.  In  LIPL,  a  copy  of  a  structure  may  be  repre¬ 
sented  by  writing  the  name  of  the  structure  to  be  copied 
prefixed  with  two  adjacent  single  quotes.  An  example  of 
this  feature  is  shown  below: 
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L4=( (0  SI  S2)  (0  SI  S2) )  L5=((0  SI  S2)  (0  SI  S2)) 

L4=(9-0=(0  SI  S2)  "9-0)  L5="L4 

Copies  may  be  named  or  unnamed.  An  unnamed  copy  is  given 
a  local  name  if  the  structure  copied  had  a  local  name; 
otherwise,  the  unnamed  copy  is  given  an  internal  name. 
Since  J164  is  a  single-scan  loader,  only  structures  that 
are  already  in  core  or  have  been  defined  to  the  left  can 
be  copied. 
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II.  REFERENCE 


SYMBOLS 

A  decimal  subscript  is  an  unsigned  decimal  integer  with  no 
internal  blanks. 

An  octal  subscript  is  an  unsigned  octal  integer  with  no 
internal  blanks. 

A  regional  symbol  is 

1)  a  letter,  or 

2)  a  letter  immediately  followed  by  a  decimal  sub¬ 
script,  or 

3)  a  "*"  immediately  followed  by  any  non-numeric 
character,  or 

4)  a  immediately  followed  by  any  non-numeric 
character,  immediately  followed  by  a  decimal 
subscript.  (E.g.,  the  IPL  symbol  "$17"  must  be 
represented  in  LIPL  as  "*$17".) 

A  local  symbol  is 

1)  a  "9"  immediately  followed  by  a  decimal  subscript, 
or 

2)  a  "9-"  immediately  followed  by  a  decimal  subscript. 

J164  does  not  distinguish  between  the  symbol  "93”  and 
"9-3".  The  domain  of  definition  of  local  symbols  is 
from  one  unparenthesized  regional  list  name  to  the 
next  unparenthesized  regional  list  name. 

A  symbolic  internal  symbol  is 

1)  an  "8"  immediately  followed  by  a  decimal  subscript, 
or 
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2)  an  "8-"  immediately  followed  by  a  decimal  sub¬ 
script. 

A  symbolic  internal  symbol  is  assigned  an  arbitrary 
equivalent  from  available  space  (1W34)  when  it  first 
occurs,  unless  it  is  made  synonomous  (by  naming)  with 
another  symbol.  The  internal  symbol  table  may  be  re¬ 
set  at  any  time  with  the  pseudo  command  RI.  The 
internal  symbol  table  may  be  printed  with  the  pseudo 
command  PI.  J164  does  not  distinguish  between  the 
symbol  "85"  and  "8-5". 

An  absolute  internal  symbol  is 

1)  the  digit  zero,  or 

2)  an  "8."  immediately  followed  by  a  decimal  sub¬ 
script,  or 

3)  an  "8/"  immediately  followed  by  an  octal  subscript. 

The  symbol  stands  for  the  absolute  machine  address 
specified  by  its  subscript. 

A  mnemonic  symbol  is 

1)  two  letters,  or 

2)  two  letters  immediately  followed  by  any  number  of 
letters  and  digits. 

J164  looks  only  at  the  last  five  or  fewer  characters 
of  a  mnemonic  symbol.  Thus,  although  CAT,  SECONDCELL, 
and  THIRDCELL  are  all  mnemonic  symbols,  J164  will  not 
differentiate  between  the  last  two.  A  mnemonic  symbol 
is  assigned  an  arbitrary  equivalent  from  available 
space  (1W34)  when  it  first  occurs,  unless  it  is  made 
synonomous  (by  naming)  with  another  symbol.  The 
mnemonic  symbol  table  may  be  reset  at  any  time  with 
the  pseudo  command  RN.  The  mnemonic  symbol  table 
may  be  printed  with  the  pseudo  command  PN. 
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An  erase  symbol  is  a  immediately  followed  by  a  regional 

internal,  or  mnemonic  symbol.  The  symbol  serves  its 
normal  contextual  purpose  and,  in  addition,  the  struc¬ 
ture  or  routine  named  by  the  symbol  (if  any)  is  erased 
The  cell  named  by  the  symbol  is  cleared  but  not  erased 
A  structure  or  routine  erase  is  used  depending  on  the 
current  setting  of  J164's  routine/data  switch. 

A  copy  symbol  is  a  pair  of  single  quotes  immediately  fol¬ 
lowed  by  a  regional,  local,  internal,  mnemonic,  or 
erase  symbol.  The  data  structure  named  by  this  symbol 
is  copied.  The  copied  structure  can  be  named  by  pre¬ 
ceding  the  copy  .symbol  with  a  name.  An  unnamed  copy 
is  given  a  local  name  if  the  structure  copied  had  a 
local  name;  otherwise,  the  unnamed  copy  is  given  an 
internal  name.  Only  structures  that  have  been  pre¬ 
viously  defined  can  be  copied. 

Symbols  may  not  contain  internal  blanks.  They  must  be 
terminated  on  the  right  with  either  a  right  parenthesis, 
an  equal  sign,  a  comma,  or  a  blank.  A  symbol  may  not  be 
split  across  two  cards. 

DATA  TERMS 

A  s ign  is  a  "+"  or  a 

An  integer  data  term  is  a  sign  immediately  followed  by  a 
decimal  integer. 

A  floating  point  data  term  is 

1)  a  sign  immediately  followed  by  a  decimal  integer, 

immediately  followed  by  a  or 

2)  a  sign  immediately  followed  by  a  decimal  integer, 

immediately  followed  by  a  immediately  fol¬ 

lowed  by  a  decimal  integer,  or 
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3)  a  sign  immediately  followed  by  a  immediately 

followed  by  a  decimal  integer. 

An  octal  data  term  is  a  "/"  immediately  followed  by  an  un¬ 
signed  octal  integer. 

An  alphanumeric  data  term  is  a  followed  by  any  number 

(including  zero)  of  characters  and  blanks  followed 
by  another  If  five  or  fewer  blanks  and  charac¬ 

ters  separate  the  dollar  signs,  a  single  left- justified 
data  term  i  assembled.  If  six  or  more  blanks  and 
characters  separate  the  dollar  signs,  then  a  list  of 
alphanumeric  data  terms  is  assembled.  The  head  of 
the  list  contains  an  internal  zero  and  the  data  terms 
are  given  local  names.  Five  characters  are  packed 
per  data  term  except  that  trailing  blanks  of  one  data 
term  are  repeated  as  leading  blanks  of  the  next  data 
term. 

Numeric  data  terms  must  not  contain  internal  blanks  and 
must  be  terminated  on  the  right  with  either  a  right  paren¬ 
thesis,  a  comma,  or  a  blank.  They  may  not  be  split  over 
two  cards.  Alphanumeric  data  terms  may  be  split  over  two 
or  more  cards. 

LISTS 

A  name  is  a  symbol  followed  by  an  equal  sign,  followed  by 

the  object  being  named.  Lists,  data  terms,  mnemonics, 
and  copies  may  be  named. 

A  basic  element  is 

1)  a  symbol,  or 

2)  a  named  mnemonic,  or 
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3)  a  named  copy,  or 

4)  a  data  term,  named  or  unnamed,  or 
3)  a  list,  named  or  unnamed. 

P  and  are  octal  digits. 

An  element  is 

1)  a  basic  element,  or 

2)  a  Q  immediately  followed  by  a  basic  element,  or 

3)  a  P  immediately  followed  by  a  Q,  immediately 
followed  by  a  basic  element. 

Blanks  must  not  occur  between  P,  Q,  and  the  basic 
element . 

A  1 ink  is  a  comma  followed  by  a  symbol. 

A  list  element  is 

1)  an  element,  or 

2)  an  element  followed  by  a  link. 

A  list  is  a  "("  followed  by  one  or  more  list  elements, 
followed  by  a  Note  that  this  definition  is 

recursive . 

LOAD  DECKS 

Blanks  must  not  be  embedded  in  symbols  or  numeric  data 

terms.  Blanks  must  not  separate  a  P,  Q,  and  a  basic 
element.  Except  for  these  two  restrictions,  blanks 
may  be  used  freely  to  improve  the  readability  of  the 
deck . 

Pseudos  are  commands  to  the  loader.  They  cause  no  code  or 
data  to  be  assembled.  Pseudos  may  be  inserted  at  any 
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point  at  which  blanks  are  permitted.  Pseudos  must  not 
contain  internal  blanks  and  they  must  be  terminated  on 
the  right  with  a  blank,  a  right  parenthesis,  or  a  comma. 
The  complete  set  of  LIPL  pseudos  is  given  below. 

RT  -  routines 
DT  -  data 

Since  the  loader  must  handle  data  differently 
than  routines,  it  must  know  which  is  being  loaded. 
J164,  therefore,  has  a  routine/data  switch  which 
is  set  to  data  each  time  J164  is  fired.  This 
switch  can  be  flipped  with  the  RT  and  DT  pseudos. 
The  switch  need  not  be  flipped  for  data  terms  in 
routines,  since  the  loader  recognizes  data  terms 
independently  of  the  switch.  A  Q  preceding  a 
basic  element  is  effective  both  in  routines  and 
data.  Thus,  "29-1"  is  the  local  symbol  "9-1" 
with  Q  =  2,  regardless  of  the  setting  of  the 
switch. 

NL  -  no  listing 

This  pseudo  suppresses  the  assembly  listing.  The 
load  deck  is  still  listed,  however. 

RN  -  reset  mnemonic  table 

RI  -  reset  internal  table 

PN  -  print  mnemonic  table 

PI  -  print  internal  table 

ND  -  end 

This  pseudo  causes  loading  to  be  terminated  and 
interpretation  to  continue  vTith  the  instruction 
following  J164. 

GT  -  go  to 

This  pseudo  causes  loading  to  be  terminated  and 
interpretation  to  begin  with  the  routine  whose 
name  occurs,  after  a  blank,  to  the  right  of 
this  pseudo. 
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Comments  are  delimited  with  quotes.  They  may  be  inserted 
at  any  point  at  which  blanks  are  permitted. 

A  load  deck  consists  of  named  lists,  named  data  terms, 

comments,  pseudos,  named  copies,  erase  symbols,  and 
named  mnemonics.  It  is  punched  on  one  or  more  cards 
using  the  full  80  columns  of  the  card.  The  load  deck 
is  terminated  with  either  the  pseudo  ND  or  GT. 

LIPL  LOADER  J164 

J164  loads  one  load  deck  from  unit  1W18.  It  lists  the 
deck  and  the  assembly  on  unit  1W20.  Loading  into  a  specific 
block  of  main  storage  is  accomplished  by  the  use  of  the 
safe  storage  cell  W34.  W34  holds  the  name  of  the  available 

space  list  used  by  the  loading  processes  (initial  loading, 

J140,  J164,  and  J165)  and  initially  holds  H2 .  To  load 
into  a  specific  block,  it  is  necessary  to  make  the  cells  of 
the  block  into  a  list  with  J172  and  put  the  name  of  this 
list  into  the  safe  storage  cell  W34.  The  first  cell  of  the 
block  is  never  loaded  into,  since,  like  H2 ,  it  is  the  head 
of  the  available  space  list.  If  the  list  1W34  becomes 
exhausted,  H2  is  placed  in  W34  without  push-down  and  loading 
continues  from  H2.  Since  J164  uses  the  print  line  1W24, 
the  print  line  is  unsafe  over  J164  and  it  must  be  at  least 
80  columns  long.  J164  is  an  in-process  loader;  a  conven¬ 
tional  initial  load  deck  is  still  required  containing  all  the 
Type-2  and  Type-3  cards  defining  regional  symbols,  blocks, 
print  lines,  etc.  Routines  and  data  cannot  be  loaded  into 
auxiliary  storage  with  J164,  but  data  can  be  loaded  into  main 
storage  and  then  moved  (by  J106  or  J107)  into  auxiliary  storage. 


Jlo4  thru  9-  11:  Setup  and  clean  up..... . . .  17-19,  21-23 


9-100  thru  9-179;  Executive  routine .  19,  32-33 


9-200  thru  9-233  Print  lilts. 

9-200  "MNEMONIC  TABLE". 

9-210  "INTERNAL  TABLE". 

9-220  "ERROR- -NO  MORE  CARDS". 

9-300  thru  9-332:  Pseudo  subroutines. 

9-311  ND-  -Stop .  19 

9-312  DT--Ser  routine/data  switch  plus .  18 

9-313  RT--Set  routine  data  switch  minus .  18 

9-315  RN-- Erase  mnemonic  table. 

9-316  RI--Erase  internal  table. 

9-317  PN--Set  mnemonic  print  flag  plus .  18 

9-318  Pl--Set  internal  print  flag  plus .  18 

9-319  NL--Set  listing  desired  flag  minus .  18 

9-320  TR--Turn  on  full  trace. 

9-324  GT--Set  link  to  cell,  stop .  17,  19 

9-400  thru  9-419:  Work  cells,  symbols,  tables. 

9-400  Mnemonic  table .  25 

9-401  Pseudo  table .  25 

9-402  Local  table .  26 

9-403  Internal  table .  26 

9-404  Copy  flag--J3  or  J4 .  24 

9-405  Erase  flag--J3  or  J4 . 24 

9-406  Assembly  print  list .  20-21 

9-407  Last  cell  of  assembly  print  list .  21 

9-408  Pure  symbol  for  data  term .  20-21 

9-409  Pure  symbol  for  beginning  of  sublist .  20-21 

9-410  Pure  symbol  for  end  of  sublist. .  20-21 

9-411  Routine/data  switch--Loading  data? . 17-18 

9-412  Pure  symbol  for  new  card .  20-21 

9-413  Integer  card  count .  20 

9-414  Did  1U34  -  H2  at  start? .  18,  23 

9-415  Link  to  this  routine  when  done .  17 

9-416  Cell  in  print  list  before  last  copy .  24 

9-417  Is  an  assembly  listing  desired? .  18 

9-418  Is  a  mnemonic  table  desired? . 18 

9-419  Is  an  Internal  table  desired? .  18 

9-500  thru  9-799:  Subroutines. 

9-500  Find  current  character .  19 

9-510  Find  next  character .  19 

9-520  Create  a  cell  in  HO  from  IW34.  . .  18 

9-530  Scan  for  next  )  ,  •  or  blank .  23-24 

9-540  Scan  for  next  )  ,  or  blank .  23-24 

9-560  Put  letter  symbol  or  pseudo  into  (0) .  25-26 

9-580  Put  local  or  Internal  symbol  into  (0) .  26-28 

9-600  Erase  and/or  copy  (0),  leave  (0) .  24-25 

9-620  Set  octal  data  in  (0),  leave  (0) .  28 

9-630  Set  decimal  data  in  (0),  leave  (0) .  28-29 

9-650  Set  alphanu  data  in  (0),  leave  (0) .  28,  29-30 

9-680  Read  and  print  a  card . 19 

9-700  List  and  erase  assembly  print  list .  21 

9-750  Skip  coosnent  or  set  copy  flag .  31 

9-760  Add  (0)  to  list  1W0.  set  P  and  Q . .  31-32 

9-770  Add  an  empty  cell  to  list  l WO . 31 

9-780  Erase  the  assembly  print  list .  21 

9-790  Print  internal,  mnemonic  tables .  23 

9-800  thru  9-981:  Integer  constants. 

9-8mn  Negative  Integer  data  term  -mn. 

9- 9mn  Positive  integer  data  term  ♦mn . 

W  CELLS 

WO  Current  cell  being  assembled .  31 

W1  Is  cell  IWO  empty? .  31 

W2  P  or  9 .  31-32 

W3  Q  or  9 .  31-32 

W4  Is  program  at  top  level? . 32 

W9  Current  character .  19 

Fig. 4— Memory  map  and  index 
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Fig.  5  —  Usage  map 
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III.  LIPL  LOADER,  J164 

The  LIPL  loader,  J164,  has  been  coded  as  an  IPL 
routine,  and,  therefore,  can  be  used  on  any  IPL  computer; 
a  complete  listing  of  the  deck  is  given  in  the  Appendix.  The 
deck  is  sequenced  in  cols.  76-80  and  includes  extensive 
comments.  J164  is  the  only  regional  symbol  occurring  in 
a  NAME  field.  All  other  names  are  local  symbols  and  they 
usually  occur  in  ascending  order. 

The  routine  has  been  coded  to  operate  as  fast  as  pos¬ 
sible.  Therefore,  it  incorporates  no  error  checking.  The 
only  error  that  will  stop  it  is  the  presence  of  an  end-of- 
file  on  the  input  unit  before  an  ND  or  GT  pseudo  has  been 
detected.  On  the  average,  the  routine  requires  225  inter¬ 
pretative  cycles  to  load  the  equivalent  of  one  standard 
IPL  input  card. 

A  memory  lap  of  J164  and  index  of  Sec.  Ill  is  given  in 
Fig.  4;  this  map  and  index  may  be  folded  out  for  continual 
reference  while  reading  this  section.  A  usage  map  is  given 
in  Fig.  5 . 

The  main  task  of  the  highest- level  routine  in  J164 
is  to  set  up  data  for  the  executive  routine  9-100.  J164 

begins  by  putting  JO  into  9-415.  J164  executes  9-415  just 

before  it  quits.  The  pseudo  command  GT  causes  the  JO  in 
9-415  to  be  replaced  by  the  symbol  appearing  to  tne  right 
of  the  GT  command. 

J164  then  puts  J4  into  9-411  and  9-417  and  J3  into 
9-418  and  9-419.  These  cells  always  contain  either  J3  or 
J4.  9-411  is  the  routine/data  switch.  It  contains  J3 

if  routines  are  being  loaded  and  J4  if  data  are  being  loaded. 
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The  pseudo  commands  RT  and  DT  change  the  contents  of  this 
cell.  9-417  indicates  if  an  assembly  listing  is  desired. 

The  pseudo  command  NL  places  a  J3  into  this  cell.  9-418 
indicates  whether  the  mnemonic  table  is  to  be  printed.  The 
pseudo  command  FN  places  a  J4  into  this  cell.  9-419  indi¬ 
cates  whether  the  internal  table  is  to  be  printed.  The 
pseudo  command  PI  places  a  J4  into  this  cell. 

J164  then  preserves  W21,  W22,  W25,  WJO,  and  W31.  It 
puts  an  integer  data  term  equal  to  1  into  the  print  column, 
print  spacing,  and  entry  column  cells,  and  also  puts  a 
zero  into  W31  to  suppress  tracing. 

J164  next  sets  routine  9-320  identical  to  9-321.  When¬ 
ever  a  cell  is  needed  from  1W34,  it  is  obtained  by  firing 
9-520.  9-521  is  a  subroutine  that  removes  the  first  list 

cell  from  list  1W34,  clears  the  cell,  and  leaves  its  name 
in  HO.  However,  if  list  1W34  becomes  exhausted,  it  stores 
the  symbol  H2  into  W34  and  sets  9-520  identical  to  J90  so 
that  from  then  on  the  user's  program  is  assembled  into  cells 
taken  from  H2. 

Next,  J164  tests  if  1W34  =  H2  and  it  stores  the  result 
of  this  test,  1 H 5 ,  into  9-414.  If  the  test  comes  out  plus, 
J164  cuts  off  the  last  one -third  of  the  available  space 
list  H2  and  puts  the  name  of  this  last  third  into  W34. 

Since  the  tail  end  of  H2  is  usually  in  sequential  order  and 
since  J164  loads  sequentially  into  the  cells  of  list  1W34, 
the  assembly  listing  will  usually  come  out  in  sequential 
order.  If  this  were  not  done,  the  cell  names  in  the  as¬ 
sembly  listing  would  occur  in  a  random  order  and  it  would 
be  difficult  to  locate  a  particular  cell  in  a  large  listing. 
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J164  then  clears  the  print  line  (setting  the  column 
pointer  1W25  to  1),  preserves  W9,  executes  9-680,  and 
then  executes  9-500.  9-680  reads  a  line  from  the  input 

unit  by  executing  J180  and  prints  it  by  executing  J155. 

It  also  does  a  few  other  tasks  that  will  be  discussed 
later.  9-500  checks  if  the  character  in  the  print  line 
at  column  1W25  is  non-blank.  If  it  is  non-blank,  this  charac¬ 
ter,  which  is  read  by  using  J186,  is  placed  into  W9  (W9  al¬ 
ways  contains  the  so-called  current  character),  and  H5  is  set 
plus.  Otherwise,  H5  is  set  minus  and  the  routine  advances 
1W25  to  the  next  non-blank  column  and  puts  the  character 
at  that  column  into  W9.  If  the  rest  of  the  print  line 
is  blank,  it  reads  and  prints  a  card  by  executing  9-680 
and  trys  again  until  it  finds  a  non-blank  column.  Thus, 
the  routine  is  used  to  find  the  current  character.  9-510, 
which  finds  the  next  character,  is  identical  to  9-500 
except  that  it  first  advances  1W25  by  one  column. 

J164  next  preserves  and  sets  up  W0-W4  and  fires  the 
executive  routine  9-100.  9-100  does  all  the  actual  as¬ 

sembling.  It  is  executed  recursively  each  time  a  left 
parenthesis  is  encountered.  It  is  terminated  when  a  right 
parenthesis,  the  pseudo  ND,  or  the  pseudo  GT  is  encountered. 
9-100  operates  exactly  the  same  when  it  is  recursively 
assembling  a  sublist  as  when  it  is  operating  at  the  top 
level  (except  only  in  the  latter  case  is  the  local  symbol 
table  reset  when  a  regional  list  name  is  encountered). 
Therefore,  it  also  assembles  a  list  of  all  the  unparenthe¬ 
sized  symbols.  In  the  example  shown  in  Fig.  3,  9-100  would 
also  have  assembled  the  following  list: 
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500 

LI 

506 

506 

L2 

515 

515 

L3 

522 

522 

R1 

528 

528 

R2 

0 

This  useless  list  is  erased  by  routine  9-700,  as  we  shall 
see . 

Each  time  a  cell  is  assembled,  its  name  is  adced  to 
the  end  of  the  assembly  print  list,  or  simply  the  print 
list,  9-406.  This  list  is  used  by  routine  9-700  to  generate 
the  assembly  listing  if  requested.  When  a  data  term  is 
assembled,  the  pure  symbcl  (pure  in  the  sense  that  the  cell 
named  by  the  symbol  is  never  used  for  anything)  9-408  is 
put  on  the  print  list  just  before  the  name  of  the  Jata  term. 
This  is  necessary  since  the  listing  routine  must  interpret 
a  data  term  differently  than  a  list  cell.  When  a  new  sub¬ 
list  is  begun,  the  executive  routine  puts  the  pure  symbol 
9-409  on  the  print  list  just  before  the  first  cell  of  the 
sublist.  When  a  sublist  is  terminated,  the  executive 
routine  puts  the  pure  symbol  9-410  on  the  print  list  just 
after  the  last  cell  of  the  sublist. 

9-680  reads  a  card  by  executing  J180.  If  there  is  no 
card  present,  it  prints  ERR0R--N0  MORE  CARDS  and  does  a 
J7.  If  there  is  a  card,  it  adds  one  to  the  integer  data 
term  9-413,  the  card  count,  and  enters  this  number  together 
with  the  word  CARD  into  the  print  list.  It  then  prints 
the  line,  blanks  out  the  word  CARD  together  with  the 
number  and  adds  the  pure  symbol  9-412  to  the  print  list 
followed  by  a  locally  named  copy  of  the  integer  card  count 
9-413. 
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Cell  9-407  always  contains  the  name  of  the  last  cell 
on  the  print  list.  This  means  that  each  time  we  want  to 
add  something  to  the  end  of  the  print  list,  we  don't  have 
to  go  down  the  entire  list.  However,  now  we  have  the 
responsibility  of  keeping  this  cell  updated. 

Thus,  the  print  list  contains  the  names  of  the  cells 
assembled,  the  pure  symbols  9-408,  9-409,  9-410,  and  9-412, 
and  copies  of  the  integer  card  count  9-413.  Fig.  6  shows 
the  complete  print  list  generated  by  the  load  deck  of  Fig.  3. 

We  will  discuss  the  executive  routine  9-100  in  greater 
detail  later.  Assume  that  it  has  now  terminated  and  re¬ 
turned  control  to  J164's  setup  routine.  J164  then  restores 
W0-W4  and  executes  9-700.  9-700  checks  cell  9-417  to  see 

if  an  assembly  listing  is  desired.  If  not,  it  links  to 
9-780,  a  subroutine  that  erases  the  print  list,  the  use¬ 
less  list  of  unparenthesized  symbols,  and  the  card  count 
data  terms.  If  an  assembly  listing  is  desired,  9-700 
generates  and  prints  the  assembled  cells  and  at  the  same 
time  erases  the  useless  list  of  unparenthesized  symbols  and 
the  card  count  data  terms.  Then,  just  before  terminating, 
it  erases  the  print  list.  The  routine  divides  the  page 
into  four  vertical  strips,  each  28  columns  wide.  A  list 
is  printed  down  a  strip.  The  highest- level  lists  are 
printed  down  the  left  strip.  Their  sublists  are  interpolated 
and  printed  in  the  strip  to  the  right  of  the  superlist.  All 
lists  of  depth  3  or  greater  are  printed  in  the  third  strip 
from  the  left.  Lists  at  the  highest  level  and  lists  of 
depth  3  or  greater  are  separated  by  printing  one  blank  line 
before  and  after.  Data  terms  at  the  highest  level  are 
printed  in  the  left  strip.  If  a  data  term  is  named  Li  a 
list,  it  is  printed  on  the  same  line  as  the  cell  that  names 
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0 

518 

500 

9-409 

9-412 

519 

9-ry 

520 

9-409 

9-409 

LI 

521 

9-409 

9-410 

501 

522 

502 

9-409 

503 

Rl 

9-410 

523 

504 

9-409 
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9-410 
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9-410 

9-409 

526 

L2 

527 

507 

9-410 

9-408 

9-412 

508 

9-o 

509 

528 

9-408 

9-409 

510 

R2 

511 

529 

9-408 

530 

512 

9-412 

513 

9-0 

9-408 

532 

514 

533 

9-410 

534 

9-412 

535 

9-0 

531 

515 

9-410 

9-409 

9-a  +01 

L3 

9-/3  +01 

516 

9-o  +01 

9-409 

9-9  +01 

517 

Fig.  6  Assembly  print  list  generated  by  load  deck  of  Fig.  3 
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it.  The  name  of  a  cell  goes  in  col.  1,  P  in  col.  8,  Q  in 
col.  10,  the  symbol  in  col.  12,  and  the  link  in  col.  18-- 
all  modulo  28.  Card  numbers  are  printed  as  CARD  n  begin¬ 
ning  at  col.  111.  They  are  printed  on  the  same  line  as  the 
first  cell  assembled  by  that  card.  If  a  card  causes  nothing 
to  be  assembled  (as,  for  example,  a  card  with  nothing  but 
comments),  its  card  number  is  not  printed.  This  routine 
is  completely  self-contained,  except  for  subroutine  9-780. 

After  executing  the  listing  routine  9-700,  J164  next 
executes  routine  9-790  which  prints  the  mnemonic  table  if 
9-418  contains  J4,  and  prints  the  internal  table  if  9-419 
contains  J4.  The  internal  format  of  these  tables  will  be 
described  later. 

J164  then  checks  cell  9-414,  which  indicates  if  cell 
W34  contained  H2  at  the  start.  If  W34  did  contain  H2  at 
the  start  and  if  it  doesn't  now,  the  list  1W34  (which 
originally  was  the  las'"  third  of  H2)  is  tacked  onto  the 
end  of  the  available  space  list  H2  (in  effect,  it  is  erased) 
and  the  symbol  H2  is  stored  into  W34.  Finally,  J164  re¬ 
stores  W21,  W22,  W25,  W30,  and  W31,  and  then  terminates 
by  linking  to  the  routine  named  in  cell  9-415. 

We  will  now  look  at  the  subroutines  used  by  the  exec¬ 
utive  routine  9-100.  There  are  two  scan  routines,  9-330 
and  9-540.  These  routines  have  no  inputs  or  outputs  in  HO. 
The  only  cell  they  modify  (other  then  H5 ,  which  is  unsafe 
over  all  subroutines)  is  W30,  the  field  length  cell.  9-530 
puts  an  integer  data  term  into  W30  that  is  equal  to  the 
difference  between  column  1W25  and  the  first  column  to  the 
right  of  1W25  that  contains  either  a  right  parenthesis,  a 
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comma,  an  equal  sign,  or  a  blank.  If  1W25  points  to  the 
first  character  of  a  LIPL  symbol  and  9-530  is  executed, 
upon  completion  1W30  will  contain  the  width  of  that  symbol 
since  all  LIPL  symbols  must  terminate  with  one  of  these 
four  characters.  9-540  is  identical  to  9-530  except  that 
it  does  not  scan  for  equal  signs.  9-540  is  used  in  reading 
numeric  data  terms  since  LIPL  numeric  data  terms  must  al¬ 
ways  terminate  with  either  a  right  parenthesis,  a  comma, 
or  a  blank. 

9-404  and  9-405  are  the  copy  flag  and  the  erase  flag. 
Normally  these  cells  contain  J3.  However,  whenever  the 
executive  routine  9-100  encounters  a  pair  of  adjacent  quotes, 
it  causes  a  J4  to  be  placed  into  9-404;  when  it  encounters 
a  period,  it  causes  a  J4  to  be  placed  into  9-405.  The 
routines  that  read  LIPL  symbols  from  the  print  line  (9-560 
and  9-580)  leave  the  symbol  in  HO  and  link  to  routine  9-600. 
If  the  copy  flag  is  on  (contains  J4) ,  input  (0)  is  copied. 

The  method  of  copying  is  the  same  as  that  used  by  J74  except 
that  the  cells  for  the  copy  are  taken  from  list  1W34  and 
the  names  of  the  cells  are  added  to  the  print  list  9-406. 
(Before  the  copy  process  is  started,  the  name  of  the  last 
cell  on  the  assembly  print  list  is  stored  into  cell  9-416. 
This  is  used  by  the  executive  routine  9-100  to  slightly 
fudge  the  print  list.)  If  the  erase  flag  is  on,  the 
structure  or  routine  named  by  the  original  input  (0)  is 
erased.  If  the  routine/data  switch  9-411  is  minus,  indi¬ 
cating  that  routines  are  being  loaded,  the  input  (0)  is 
erased  as  a  routine;  otherwise,  the  input  is  erased  as  a 
data  structure,  except  that  the  head  cell  is  simply  cleared 
instead  of  being  erased.  In  any  case,  upon  exit  both  flags 


-25- 


are  turned  off,  H5  is  set  plus,  and  (0)  contains  input  (0) 
or,  if  the  copy  flag  was  on,  the  name  of  the  copy. 

The  mnemonic  table  9-400  and  the  pseudo  table  9-401 
have  identical  form.  They  have  the  form  of  description 
lists,  except  that  the  attributes  are  the  names  of  alpha¬ 
numeric  data  terms.  This  may  be  seen  by  looking  at  the 
pseudo  table  9-401  in  the  program  listing  given  in  the  Appen¬ 
dix,  where  the  attributes  are  not  the  symbols  occurring  on 
the  list  but  rather  the  data  terms  named  by  those  symbols. 
Therefore,  unfortunately,  the  IPL  description  list  pro¬ 
cesses  cannot  be  used  on  these  "description  lists." 

Routine  9-560  is  used  to  read  regional  and  mnemonic 
LIPL  symbols  and  pseudos  from  the  print  line.  1W25  is 
assumed  upon  entry  to  point  to  the  first  character  of  the 
symbol  (except  in  the  case  of  a  special  character  regional 
symbol  which  LIPL  requires  to  be  prefixed  with  an  asterisk, 
in  which  case  9-560  assumes  1W25  upon  entry  to  point  to  the 
column  after  the  asterisk).  The  routine  first  executes 
9-530  which  sets  1W30  to  the  width  of  the  symbol.  It  then 
checks  to  see  if  the  symbol  is  a  regional  symbol.  It  is 
a  regional  symbol  if  the  character  in  col.  1W25+1  is  a 
digit  or  if  the  width  of  the  symbol  is  1.  If  it  is  a 
regional  symbol,  it  executes  J181  which  puts  the  symbol 
into  HO  and  it  then  links  to  9-600  which  copies  and/or 
erases  if  required  and  sets  H5  plus.  If  it  is  not  regional, 
it  reads  the  symbol  into  HO  as  an  alphanumeric  data  term 
by  using  J182.  It  then  searches  the  pseudo  table  9-401. 

If  it  is  a  pseudo,  it  puts  the  name  of  the  equivalent 
pseudo  subroutine  into  HO  and  quits  with  H5  minus.  If  it 
is  not  a  pseudo,  it  must  be  a  mnemonic,  so  it  searches  the 
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mnemonic  table;  if  found,  it  puts  the  equivalent  symbol 
into  HO  and  links  to  9-600.  If  it  is  not  found  in  the 
mnemonic  table,  it  creates  an  internal  symbol,  by  using 
9-520,  makes  this  new  symbol  equivalent  to  the  mnemonic 
symbol  in  the  mnemonic  table,  leaves  the  new  symbol  in  HO, 
and  links  to  9-600.  Thus,  upon  completion  H5  is  minus  and 
(0)  contains  the  name  of  a  pseudo  subroutine,  or  H5  is 
plus  and  (0)  contains  either  a  regional  symbol,  a  symbol 
equivalent  to  a  mnemonic  symbol,  or  the  name  of  a  copy  if 
the  copy  flag  was  on.  In  any  case,  1W25  now  points  to  the 
first  column  after  the  LIPL  symbol  or  pseudo. 

The  local  symbol  table  9-402  and  the  internal  symbol 
table  9-403  are  in  the  form  of  empty  described  lists.  The  at¬ 
tributes  of  their  description  lists  are  LIPL  subscripts 
represented  as  absolute  internal  symbols,  and  their  values 
are  symbols  obtained  from  1W34  by  means  of  routine  9-520. 

For  example,  if  the  LIPL  local  symbols  9-1  and  935  were 
assigned  the  equivalent  IPL  local  symbols  1347  and  1409, 
the  local  symbol  table  might  look  like  this: 

9-402  02  1700  0 

1700  04  0 

04  1 
02  1347 
04  35 

02  1409  0 

Routine  9-580  is  used  to  read  local  and  internal 
LIPL  symbols  from  the  print  line.  It  has  one  input  in 
HO.  If  (0)  is  J3,  the  routine  assumes  that  the  character 
at  col.  1W25  is  the  8  at  the  beginning  of  an  internal 
LIPL  symbol;  if  (0)  is  a  J4,  it  assumes  that  the  character 
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at  col.  1W25  is  the  9  at  the  beginning  of  a  local  LIPL 
symbol.  The  routine  saves  input  (0),  advances  1W25  by  one 
column,  and  branches  on  this  next  character.  This  charac¬ 
ter  is  either  a  minus  sign,  a  period,  a  slash,  or  a  digit. 

If  the  character  is  a  period,  indicating  an  absolute  decimal 
symbol,  it  advances  1W25  by  1,  executes  9-530  to  set  1W30  to 
the  width  of  the  subscript,  executes  J181  to  put  the  sub¬ 
script,  as  an  absolute  internal  symbol,  into  HO,  makes 
this  symbol  local  if  the  original  input  (0)  was  J4,  and 
then  links  to  9-600  to  copy  and/or  erase  the  symbol  if 
required.  If  the  character  being  branched  on  is  a  slash, 
indicating  an  absolute  octal  symbol,  it  advances  1W25  Ly 
1,  executes  9-530  to  set  1W30  to  the  width  of  the  subscript, 
executes  J182  to  put  the  subscript  into  HO  as  an  octal  data 
term,  executes  J128  to  convert  this  octal  data  term  to  a 
(decimal)  integer  data  term,  decrements  1W25  by  1,  executes 
J159  to  enter  this  integer  into  the  print  line  right- 
justified,  and  then  goes  to  the  same  point  in  the  routine 
to  which  the  character  period  branched.  If  the  character 
being  branched  on  is  a  minus  sign  or  if  it  is  a  digit,  both 
indicating  local  symbols,  the  routine  does  the  same  thing, 
except  that  in  the  case  of  the  minus  sign  1W25  is  first 
advanced  by  one  column.  The  routine  then  executes  9-530 
to  set  1W30  to  the  width  of  the  subscript.  It  then  puts 
the  subscript  as  an  absolute  internal  symbol  into  HO  by 
executing  J 1 8 1 .  It  then  uses  J10  to  find  the  equivalent 
symbol  for  this  subscript  on  the  local  symbol  table  9-402 
(if  input  (0)  was  J4)  or  on  the  internal  table  9-403  (if 
input  (0)  was  J3).  If  found,  this  equivalent  symbol  is 
left  in  HO  and  the  routine  links  to  9-600;  if  not  found, 
a  new  symbol  is  created  by  executing  9-520.  This  symbol 
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is  made  local  or  internal,  depending  on  input  (0),  and 
it  is  assigned  as  the  value  of  the  subscript  on  the  internal 
or  local  table.  This  new  symbol  is  left  in  HO  and  the 
routine  links  to  9-600.  Thus,  upon  completion  H5  is  plus, 
(0)  contains  either  an  absolute  symbol,  the  equivalent  of 
a  LIPL  local  or  symbolic  internal  symbol,  or  the  name  of 
a  copy,  and  1W25  points  to  the  first  column  after  the  LIPL 
symbol . 

Three  routines  are  used  to  assemble  data  terms:  9-620 
assembles  octal  data  terms;  9-630  assembles  numeric  data 
terms,  both  integers  and  floating  point;  and  9-650  assembles 
alphanumeric  data  terms  and  alphanumeric  print  lists.  They 
all  have  one  input  (0),  which  they  leave  as  output  (0). 

They  all  assemble  the  LIPL  data  term  beginning  at  col. 

1W25  into  cell  (0) ,  except  9-650  when  it  assembles  a  print 
list,  in  which  case  (0)  becomes  the  name  of  the  list. 

They  assume  that  the  character  at  col.  1W25  is  a  slash, 
a  plus  sign  or  a  minus  sign,  or  a  dollar  sign,  respectively. 
When  they  assemble  a  data  term,  they  add  the  pure  symbol 
9-408  and  the  name  of  the  assembled  cell  to  the  assembly 
print  list  9-406.  In  addition,  when  9-650  assembles  a 
print  list,  it  adds  the  names  of  the  cells  of  the  print 
list  to  9-406.  They  all  terminate  with  1W25  pointing  to 
the  next  column  after  the  LIPL  data  term. 

9-620  first  advances  1W25  by  1.  It  then  executes 
9-540  to  set  1W30  to  the  width  of  the  octal  data  term. 

Next,  it  executes  J182  to  put  the  octal  data  into  cell 
(0) ,  then  it  adds  the  pure  symbol  9-408  and  (0)  to  list 
9-406  and  quits. 
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9-630  begins  by  adding  the  pure  symbol  9-408  and  (0) 
to  list  9-406.  It  then  counts  the  number  of  columns  to 
the  next  period,  advances  1W25  by  1,  and  sets  1W30  to  the 
width  of  the  data  term  by  executing  9-340.  If  the  next 
period  is  beyond  the  end  of  the  data  term,  it  executes 
J182  to  input  the  LIPL  integer  into  cell  (0),  and  quits. 
(This  routine  only  forms  the  absolute  value  of  a  data  term; 
the  executive  makes  it  negative  if  required.)  If  the  next 
period  occurs  before  the  end  of  the  data  term,  it  forms 
two  data  terms,  one  for  the  integral  part  of  the  LIPL  data 
term  and  the  other  for  the  fractional  part  of  the  data  term, 
and  places  their  sum  into  (0)  and  terminates.  It  forms 
the  integral  part  by  doing  J182  with  1W30  set  equal  to  the 
number  of  columns  to  the  next  period.  It  forms  the  frac¬ 
tional  part  by  doing  a  J182  with  1W30  set  equal  to  the 
number  of  columns  between  the  period  and  the  end  of  the 
data  term  and  dividing  this  number  repeatedly  by  10,  once 
for  each  column  between  the  period  and  the  end  of  the  data 
term. 

Routine  9-650,  which  assembles  alphanumeric  data,  be¬ 
gins  by  making  input  (0)  a  blank  alphanumeric  data  term. 

If  a  dollar  sign  occurs  in  col.  1W25+1,  it  advances  1W25 
by  2,  puts  the  pure  symbol  for  a  data  term  9-408  and  input 
(0)  on  the  print  list  9-406,  and  terminates.  If  a  dollar 
sign  occurs  in  the  next  six  columns,  but  not  in  the  very 
next  column,  the  routine  advances  1W25  by  1,  sets  the  field 
width  1W30  to  one  less  then  the  distance  to  the  next  dollar 
sign,  inputs  the  alphanumeric  data  into  cell  (0)  by  exec¬ 
uting  J182,  again  advances  1W25  by  1  (just  past  the  second 
dollar  sign),  puts  the  pure  symbol  for  a  data  term  9-408 
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and  input  (0)  on  the  assembly  print  list  9-406,  and 
terminates.  If  the  next  dollar  sign  occurs  further  than 
six  columns  away,  the  routine  advances  1W25  by  1,  makes 
input  (0)  identical  to  an  empty  list,  puts  the  pure  symbol 
for  the  beginning  of  a  sublist  9-409  and  the  input  (0)  on 
the  assembly  print  list  9-406,  and  then  begins  a  cycle. 

The  cycle  begins  by  checking  if  1W25  is  greater  than  80. 

If  greater  then  80,  9-680  is  executed  to  read  and  print 
a  card  and  1W25  is  reset  to  1.  The  cycle  continues  in  any 
case  by  checking  to  see  if  col.  1W25  contains  a  dollar  sign, 
in  which  case  1W25  is  advanced  by  1,  the  pure  symbol  for 
the  end  of  a  sublist,  9-410,  is  added  to  the  assembly  print 
list  9-406,  and  the  routine  terminates.  Otherwise,  the 
cycle  continues  by  checking  to  see  if  the  next  four  columns 
contain  a  dollar  sign.  If  not,  it  creates  two  cells  from 
list  1W34  by  executing  9-520  twice.  It  puts  the  name  of 
the  second  cell  into  the  first  cell  and  it  adds  the  first 
cell  to  the  end  of  list  (0).  It  adds  the  name  of  the  first 
cell,  the  pure  symbol  for  a  data  term,  9-408,  and  the  name 
of  the  second  cell  to  the  assembly  print  list  9-406.  It 
then  reads  the  alphanumeric  data  beginning  at  col.  1W25 
with  a  field  width  1W30  equal  to  5  into  the  second  cell  by 
executing  J182.  Then  1W25  is  decremented  by  the  number 
of  trailing  blanks  in  the  last  data  term  assembled,  and  the 
routine  recycles.  If,  at  the  start  of  the  cycle,  one  of 
the  next  four  columns  contains  a  dollar  sign,  the  same 
process  occurs,  except  that  the  field  width  1W30  is  set 
to  one  less  than  the  distance  to  the  next  dollar  sign  and 
instead  of  recycling,  1W25  is  advanced  by  1,  the  pure 
symbol  for  the  end  of  a  sublist,  9-410,  is  added  to  the 
assembly  print  list  9-406,  and  the  routine  is  terminated. 
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Routine  9-730  is  used  to  skip  over  comments  or  to  set 
the  copy  flag  9-404.  Each  time  the  executive  routine  9-100 
encounters  a  quote,  it  executes  9-750.  Column  1W25  always 
contains  a  quote  when  9-730  is  executed.  The  routine  ad¬ 
vances  1W25  by  1.  If  this  next  column  contains  another 
quote,  the  routine  stores  J4  into  the  copy  flag  9-404  and 
links  to  9-510.  Otherwise,  it  advances  1W25  one  column  past 
the  next  quote  and  terminates.  If  there  isn't  another 
quote  in  this  print  line,  the  routine  reads  and  prints  a 
card  by  executing  9-680.  It  repeats  this  process  until  it 
finds  the  second  quote  and  then  it  sets  1W25  one  column 
beyond  and  terminates. 

WO  always  contains  the  name  of  the  current  cell  being 
assembled.  W1  contains  J3  or  J4.  If  cell  1WO  has  not  yet 
been  assembled,  it  is  considered  empty  and  W1  contains  J4. 

If  the  cuj  rent  cell  1W0  has  been  assembled,  W1  contains  J3. 
Lists  ai e  always  assembled  from  the  head  cell  down.  Cell 
1W0  is,  therefore,  the  last  cell  of  the  list  being  cur¬ 
rently  assembled.  And,  according  to  standard  IPL  terminology, 
it  is  also  a  list  in  its  own  right--an  empty  list.  Routine 
9-770  adds  an  empty  cell  to  list  1W0  (or  cell  1W0,  depend¬ 
ing  on  how  you  want  to  view  it)  if  W1  is  minus.  It  does 
this  by  executing  9-520  which  creates  a  new  cell  from  1W34, 
making  the  name  of  this  cell  the  link  of  cell  1W0,  putting 
the  name  of  this  new  cell  into  WO,  and  setting  W1  plus. 

W2  and  W3  normally  contain  the  absolute  internal  symbol 
9.  Whenever  the  executive  routine  9-100  encounters  a  P, 
it  is  stored  in  W2  as  an  absolute  internal  symbol.  When¬ 
ever  a  Q  is  encountered,  it  is  stored  into  W3  as  an  absolute 
internal  symbol.  Routine  9-760  adds  the  symbol  (0)  to  list 
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1W0.  If  cell  1WO  is  not  empty  (1W1  ^  J4) ,  the  routine 
adds  an  empty  cell  to  1W0  by  doing  the  equivalent  of 
9-770.  In  any  case,  input  symbol  (0)  is  stored  into  cell 
1WO  and  1W0  is  added  to  the  assembly  print  list  9-406. 

If  1W3  (Q)  is  not  (the  absolute  internal  symbol)  9,  the  Q 
of  cell  1W0  is  set  to  1W3  by  executing  J195  and  W3  is  reset 
to  9.  If  1W3  originally  was  9  and  if  the  routine/data 
switch  9-411  contains  J3,  indicating  that  routines  are  being 
loaded,  the  Q  of  cell  1WO  is  set  to  0.  If  1W2  (P)  is  not 
(the  absolute  internal  symbol)  9,  the  P  of  cell  1W0  is  set 
to  1W2  by  executing  J194  and  W2  is  reset  to  9.  Finally, 

J3  is  stored  into  Wl,  indicating  that  cell  1WO  has  been 
assembled  and  is  not  empty. 

W4  contains  J4  if  the  executive  routine  9-100  is  op¬ 
erating  at  its  top  level;  otherwise,  it  contains  a  J3.  Its 
only  function  is  to  help  in  determining  when  to  reset  the 
local  symbol  table. 

We  have  now  described  all  the  routines,  tables,  work¬ 
ing  cells,  and  symbols  used  by  J164,  except  the  executive 
routine  9-100.  A  detailed  flowchart  of  the  routine  is 
given  in  Fig.  8.  The  executive  routine,  as  the  name 
implies,  does  little  more  than  sequence  subroutine  calls. 
Most  of  this  sequencing  is  accomplished  by  branching  on 
the  current  character,  which  is  always  contained  in  W9. 
Branches  on  the  current  character  are  represented  in  the 
flowchart  as  hexagons.  If  the  current  character  1W9  is 
the  character  in  a  hexagon,  program  control  moves  along 
the  horizontal  arrow.  Otherwise,  it  moves  along  the  down 
arrow.  This  branching  is  usually  accomplished  by  means  of 
description  lists.  The  characters  in  the  hexagons  appear 
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as  attributes  (in  the  form  of  regional  symbols)  on  the 
description  list  and  they  have  for  values  the  name  of 
the  section  of  9-100  to  which  control  is  to  pass  for  this 
character.  Thus,  to  branch  on  the  current  character,  the 
program  finds  the  value  of  attribute  1W9  on  a  description 
list  and  then  it  links  to  Jl. 

When  9-100  is  fired  for  the  very  first  time,  the  set¬ 
up  routine  has  already  read  the  first  card  into  the  print 
line,  preserved  W0-W4  and  W9,  and  placed  an  empty  cell 
into  WO,  J4  into  W1  and  W4,  the  absolute  internal  symbol  9 
into  W2  and  W3,  and  the  first  character  into  W9. 

Suppose  we  did  not  have  to  worry  about  copy  symbols, 
erase  symbols,  pseudos,  the  symbol  0,  named  mnemonics, 

Ps  and  Qs,  or  the  order  in  which  things  are  placed  on  the 
assembly  print  list.  Then,  a  simplified  flowchart  for 
9-100  would  look  like  Fig.  7.  From  the  simplified  flow¬ 
chart  to  the  complete  flowchart  is  just  a  matter  of  adding 
details . 
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Fig.  7— Simplified  flowchart  of  executive  9-100 
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2ND  LAST  SYMBOL  READ—  • 

THE  'NAME*  THE  USER  * 

WANTS  THE  COPY  TO  HAVE.  • 

(II  IS  MADE  IDENTICAL  * 

TO  (01  AND  (II  IS  ADDED  • 

TO  THE  LIST  1W0.  THE  * 

CELL  ON  LIST  1*0  INTO  • 

WHICH  (II  IS  PLACED  • 

IS  INSERTED  INTO  THE  * 

PRINT  LIST  JUST  bEFORE  • 

THE  COPY  AND  THE  * 

ORGINAL  NAME  * 

OF  THE  COPY  IS  REPLACED  * 

BY  THE  SYMBOL  ( 1  I  ON  THE  • 

PRINT  LIST.  * 

• 

THEN  THE  CURRENT  * 

CHARACTER  IS  FOUND  • 

AND  THE  PROGRAM  LINKS  • 

TO  9-100.-  * 


♦  9-142 

L 1  PL 

9-100 

1790 

♦  S 

LIPL 

9-100 

1800 

♦  9-143 

LI  PL 

9-100 

1810 

♦  / 

LIPL 

9-100 

1820 

♦  9-144 

LIPL 

9-100 

1830 

♦  B 

LIPL 

9-100 

1840 

♦  9-125 

LIPL 

9-100 

1850 

♦  9 

LIPL 

9-100 

1860 

♦  9-126 

LIPL 

9-100 

1870 

♦  * 

LIPL 

9-100 

1880 

♦  9-122 

LIPL 

9-100 

1890 

♦  ( 

LIPL 

9-100 

1900 

♦  9-153 

0 

LIPL 

9-100 

1910 

9-119  9-750 

9-116 

LIPL 

9-100 

1920 

9-121  10J4 

LIPL 

9-100 

1930 

209-405 

9-115 

LIPL 

9-100 

1940 

9-122  9-510 

LIPL 

9-10C 

1950 

9-123  019-404 

LIPL 

9-100 

1960 

709-124 

LIPL 

9-100 

1970 

9-560 

9-131 

LIPL 

9-100 

1980 

9-124  9-560 

LIPL 

9-100 

1990 

70 

9-132 

LIPL 

9-100 

2000 

J1 

LIPL 

9-100 

2010 

70  0 

LIPL 

9-100 

2020 

9-500 

9-116 

LIPL 

9-100 

2030 

9-125  10J3 

9-127 

LIPL 

9-100 

2040 

9-126  10J4 

LIPL 

9-100 

2050 

9-127  019-404 

LIPL 

9-100 

2060 

709-128 

LIPL 

9-100 

2070 

9-580 

9-131 

LIPL 

9-100 

2080 

9-128  9-560 

9-132 

LIPL 

9-100 

2090 

9-129*  0 

0 

LIPL 

9-100 

2100 

9-131  209-129 

LIPL 

9-100 

2110 

209-133 

LIPL 

9-100 

2120 

119-129 

LIPL 

9-100 

2130 

119-133 

LIPL 

9-100 

2140 

J121 

LIPL 

9-100 

2150 

J8 

LIPL 

9-100 

2160 

01W1 

LIPL 

9-100 

2170 

70 

9-138 

LIPL 

9-100 

2180 

119-129 

LIPL 

9-100 

2190 

uwo 

LIPL 

9-100 

2200 

J197 

LIPL 

9-100 

2210 

119-129 

LIPL 

9-100 

2220 

J124 

LIPL 

9-100 

2230 

20WC 

9-139 

LIPL 

9-100 

2240 

9-138  10J3 

LIPL 

9-100 

2250 

20*1 

LIPL 

9-100 

2260 

9-139  119-133 

LIPL 

9-100 

2270 

21WC 

LIPL 

9-100 

2280 

119-416 

LIPL 

9-100 

2290 

J60 

LIPL 

9-100 

2300 

209-416 

LIPL 

9-100 

2310 

419-416 

LIPL 

9-100 

2320 

UWO 

LIPL 

9-100 

2330 

219-416 

LIPL 

9-100 

2340 

119-416 

LIPL 

9-100 

2350 

J60 

LIPL 

9-100 

2360 

J60 

LIPL 

9-100 

2370 

209-416 

LIPL 

9-100 

2380 

-41- 


• 

119-133 

L  IPL 

9-100 

• 

2 19-416 

L  I  PL 

9-luO 

•  * 

9-500 

9- ICO 

LIPL 

9-100 

132 

<C)  IS  A  NEUMONIC  AND  ***** 

9-132 

J6 

L  IPL 

9-1CC 

Cl)  IS  A  SYM50L.  (0)  * 

209-129 

LIPL 

9-100 

IS  MADE  EQUIVALENT  TO  * 

109-400 

LIPL 

9-100 

Cl)  IN  THE  NEURONIC  • 

J6 

LIPL 

9-100 

T  A  OLE  *  THE  PROGRAM  * 

J62 

LIPL 

9-100 

THEN  LINKS  TO  9-110.  • 

2C9-133 

LIPL 

9-1C0 

* 

119-129 

LIPL 

9-100 

»« 

619-133 

9-lio 

LIPL 

9-100 

133 

WORKING  CELL 

9-1334 

0 

0 

LIPL 

9-100 

134 

ADD  AN  EMPTY  CELL  TO  LIST  1*0 

9-134 

9-770 

LIPL 

9-100 

CREAT  A  CELL  IN  HO 

9-520 

LIPL 

9-100 

MAKE  IT  LOCAL#  GO  TO  9-141 

J 1  36 

9-141 

LIPL 

9-1C0 

135 

ADD  AN  EMPTY  TO  LIST  1*0 

9-135 

9-770 

LIPL 

9-100 

CREAT  A  CELL  IN  HO 

9-520 

LIPL 

9-1G0 

MAKE  IT  LOCAL#  GO  TO  9-142 

J 1  36 

9-142 

LIPL 

9-100 

136 

ADD  EN  EMPTY  CELL  TO  LIST  1WO 

9-136 

9-770 

LIPL 

9-100 

CREAT  A  CELL  IN  HO 

9-520 

LIPL 

9-100 

MAKE  IT  LOCAL#  GO  TO  9-143 

J136 

9-143 

LIPL 

9-1C0 

137 

ADD  AN  EMPTY  CLLL  TO  LIST  1*0 

9-137 

9-770 

LIPL 

9-100 

CREAT  A  CELL  IN  HO 

9-520 

LIPL 

9-100 

MAKL  IT  LOCAL.  GO  TO  9-144 

J136 

9-144 

LIPL 

9-100 

141 

ACD  10)  TO  LIST  1«C» 

9-141 

4GHC 

LIPL 

9-100 

LEAVE  CO) .  GO  TO  9-145 

9-760 

9-145 

LIPL 

9-1GC 

145 

ADD  CO)  TO  LIST  1*0. 

9-142 

40H0 

LIPL 

9-100 

LEAVE  C  J) .  GO  TO  9-146 

9-76C 

9-146 

LIPL 

9-100 

143 

ADD  CO)  TO  LIST  lwu. 

9-143 

40HC 

LIPL 

9-100 

LEAVE  CO).  GO  TO  9-147 

9-760 

9-147 

LIPL 

9-100 

144 

ADC  CO)  TO  LIST  1W0. 

9-144 

40H0 

LIPL 

9-100 

LEAVE  CO) .  GO  TO  9-148 

9-760 

9-148 

LIPL 

9-1GU 

145 

SET  NEJMERCC  DATA  IN  CO) 

9-145 

9-630 

LIPL 

9-100 

POP  HO.  GO  TC  9-149 

J8 

9-149 

LIPL 

9-100 

146 

SET  NEUM.ERIC  DATA  IN  (01 

9-146 

9-630 

LIPL 

9-100 

MAKE  CO)  NEGATIVE- 

J123 

LIPL 

9-100 

POP  HO.  GO  TO  9-149 

J8 

9-149 

LIPL 

9-1C0 

147 

SET  BCD  DATA  IN  (0) 

9-147 

9-650 

LIPL 

9-100 

POP  HO.  GO  TO  9-149 

J8 

9-149 

LIPL 

9-100 

146 

SET  OCTAL  DATA  IN  CO) 

9-148 

9-620 

LIPL 

5-100 

POP  HO.  GO  TO  9-149 

je 

9-149 

LIPL 

5-  ICO 

149 

FIND  CURRENT  CHARACTER. GO  9-100 

9-149 

9-500 

9-100 

LIPL 

9-100 

151 

SET  ERASE  FLAG 

9-151 

1004 

LIPL 

9-100 

209-405 

LIPL 

9-1CJ 

FIND  NEXT  CHARACTER. GO  TO  9-100 

9-510 

9-100 

LIPL 

9-100 

152 

ADD  EN  EMPTY  CtLL  TO  LIST  lWw 

9-152 

9-770 

LIPL 

9-100 

CREAT  A  CELL  IN  HO 

9-520 

LIPL 

9-100 

MAKE  IT  LOCAL 

J136 

LIPL 

9-10C 

153 

9-153 

609-129 

LIPL 

9-100 

ACO  (0)  TO  LIST  1*0 

9-760 

LIPL 

9-100 

119-129 

LIPL 

9-100 

IF  10)  IS  NOT  REGIONAL. 

J13C 

LIPL 

9-100 

GC  TO  9-154 

709-154 

LIPL 

9-1CG 

IF  NOT  AT  THE  TOP  LEVEL. 

01*4 

LIPL 

9—  ICO 

GO  TO  9-154 

709-154 

LIPL 

>-100 

RESET  LOCAL  SYMBOL  TABLE  ***** 

109-402 

LIPL 

9-100 

• 

jeo 

LIPL 

9-100 

• 

709-154 

LIPL 

5-1  jO 

• 

J71 

LIPL 

9-100 

2390 
2400 
2410 
2420 
24  30 
2440 
2450 
2460 
2470 
2460 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2560 
2590 
2600 
2610 
2620 
2630 
2640 
265C 
2660 
2670 
2660 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2760 
2790 
2600 
2610 
2620 
2830 
2640 
2650 
2660 
2870 
2660 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
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•  • 

154  SET  OP  40-44  FOR  50  BL  1ST  ***** 


** 

FIND  NEXT  CHARACTER 
PUT  'BEGIN  SU3LI6T'  SYMboL  ON 
PRINT  LIST 

DO  9-1GC  RECURSIVELY 
PUT  'END  SUBLIST'  SYMBOL  ON 
PRINT  LIST 

POP  40-44 
STOP  IF  H5  - 

FIND  NEXT  CHARACTER. GO  TO  9-149 

155  PUT  CURRENT  CHARACTER  IN  HO 

find  next  character 

IF  BLANX(S).  GO  TO  9-164 

156  oRANCH  ON  CURRENT  CHARACTER**** 

• 

IF  OCTAL  uu  TO  9-162  * 

IF  •  GO  TO  9-159  * 

IF  .  GU  TO  9-164  * 

IF  )  GO  TO  9-164  * 

• 

ELSE  GO  TO  9-161  * 


•  • 

159  SKIP  COMMNT  OR  SET  COPY.  9-116 

161  PUT  ( 0 »  IN  4 3  10).  GO  TO  9-1C0 

162  POT  CURRENT  CHARACTER  IN  A3  ( 0 ) 
AND  (G)  IN  42  (P) 

FIND  NEXT  CHARACTER 

IF  NO  BLANK.)  S )  *  GO  TO  9-165 

163  PUT  AN  INTERNAL  ZERO  IN  HO 

164  ADD  )0)  TO  LIST  140. GO  TO  9-100 

165  IS  CURRENT  CHARACTER  ZERO 


IF  NOT.  GO  TO  9-10C 

IF  SO.  FIND  NEXT  CHAR.  GO  9-163 

166  SKIP  CO MW NT  CR  SET  COPY.  9-116 

167  FIND  NEXT  CHARACTER 

166  branch  on  current  character**** 


10  0 

LIPL 

9-100 

2960 

209-402 

LI  PL 

9-100 

299C 

9-154  1GJ3 

LIPL 

9-100 

3000 

10  9 

LIPL 

9-100 

3010 

10  9 

LIPL 

9-100 

3020 

10J4 

LIPL 

9-100 

3030 

119-129 

LIPL 

9-100 

3040 

J54 

LIPL 

9-100 

3C50 

9-510 

LIPL 

9-1C0 

3060 

119-407 

LIPL 

9-100 

3070 

109-409 

LIPL 

9-100 

3080 

J65 

LIPL 

9-100 

3090 

9-100 

LIPL 

9-100 

3100 

119-407 

LIPL 

9-100 

3110 

109-410 

LIPL 

9-100 

3120 

J65 

LIPL 

9-1CG 

3130 

J34 

LIPL 

9-100 

3140 

70  C 

LIPL 

9-100 

3150 

9-5 1 G 

9-149 

LIPL 

9- 1  oG 

3160 

9-155  1149 

LIPL 

9-100 

3170 

9-510 

LIPL 

9-100 

3160 

709-164 

LIPL 

9-100 

3190 

9-156  109-157 

LIPL 

9-100 

3200 

1149 

LIPL 

9-1C0 

3210 

J10 

LIPL 

9-1C0 

3220 

70 

Jl 

LIPL 

9-100 

3230 

1149 

LIPL 

9-100 

3240 

J130 

LIPL 

9-100 

3250 

709-162 

9-161 

LIPL 

9-luO 

3260 

9-157*  9-156 

0 

LIPL 

9-100 

3270 

9-158*  0 

LIPL 

9-100 

3280 

♦  • 

LIPL 

9-100 

3290 

♦  9-159 

LIPL 

9-100 

3300 

*  . 

LIPL 

9-100 

3310 

♦  9-164 

LIPL 

9-100 

3320 

♦  ) 

LIPL 

9-100 

3330 

♦  9-164 

LIPL 

9-1O0 

3340 

*  6 

LIPL 

9-100 

3350 

*  9-161 

LIPL 

9-1 00 

3360 

♦  9 

LIPL 

9-100 

3370 

*  9-161 

0 

LIPL 

9-100 

3380 

9-159  9-750 

9-156 

LIPL 

9-10C 

3390 

9-161  2043 

9-100 

LIPL 

9-100 

3400 

9-162  1149 

LIPL 

9-100 

3410 

2043 

LIPL 

9-100 

3420 

2042 

LIPL 

S-1C0 

3430 

9-510 

LIPL 

9-100 

3440 

70 

9-16c’ 

LIPL 

9-100 

3450 

9-163  10  C 

LIPL 

9-100 

3460 

Ji  38 

LIPL 

9-100 

3470 

9-164  9-760 

9-100 

LIPL 

9-100 

3480 

9-165  1149 

LIPL 

9-100 

3490 

1C  C 

LIPL 

9— ICO 

3500 

J2 

LIPL 

9-1C0 

3510 

709-100 

LIPL 

9-100 

3520 

9-510 

9-163 

LIPL 

9-100 

3530 

9-166  9-750 

9-100 

LIPL 

9-100 

3540 

9-167  9-5'l0 

LIPL 

9-100 

3550 

?-16b  lu9— 169 

LIPL 

9-100 

3560 

1149 

LIPL 

9-100 

3570 

-43- 


IF  LETTER  GO  TC  9-175 

• 

J10 

LI  PL 

9-100 

3580 

IF  8  GO  TC  9-176 

* 

7C9-175 

J1 

LIPL 

9-1U0 

3590 

IF  9  GO  TO  9-177 

• 

9-169+  9-171 

0 

LIPL 

9-  ICO 

3600 

IF  •  GO  TO  9-172 

• 

9-171+  0 

LIPL 

S-10C 

3610 

IF  .  GO  TO  9-173 

• 

♦  • 

LIPL 

9-lwC 

3620 

IF  *  GC  TO  9-174 

• 

♦  9-172 

LIPL 

9-1 00 

3630 

• 

+  6 

LIPL 

9-100 

3640 

NOTE— IT  IS  IMPOSSIBLE 

• 

+  9-176 

LIPL 

9-10C 

3650 

FOR  THE  CURRtNT 

« 

♦  9 

LIPL 

9-100 

366C 

CHARACTER  TC  BE  AN 

• 

+  9-177 

LIPL 

9-1C0 

3670 

OCTAL*  AN  • * • »  A  •  (  • 

• 

♦  • 

LIPL 

9-100 

3680 

A  »  )  •  ,  A  ««•«.  A 

• 

♦  9-173 

LIPL 

9-100 

3690 

A  •/• ,  OR  A  •$•  AT  THIS  * 

♦  * 

LIPL 

9-1C0 

3700 

POINT  IN  THE  PROGRAM, 

** 

♦  9-174 

0 

LIPL 

9-100 

3  7 1 C 

172 

SKIP  COMKNT  OR  SET  COPY 

.  9-168 

9-172  9-750 

9-168 

LIPL 

9-1C0 

3720 

173 

set  erase  flag 

9-173  10J4 

LIPL 

9-100 

3730 

209-4U5 

LIPL 

9-1GC 

3740 

FIND  NEXT  CHARACTER. GO 

TO  9-168 

9-510 

9-166 

LIPL 

9-100 

3750 

174 

FIND  NEXT  CHARACTER 

9-174  9-510 

LIPL 

9-100 

3760 

175 

put  symbol  in  ho.  go  to 

9-179 

9-175  9-560 

9-179 

LIPL 

9-100 

3770 

1  76 

POT  J3  IN  HO.  GO  TO  9-178 

9-176  10J3 

9-178 

LIPL 

9-1 OC 

3780 

177 

PUT  J4  IN  HO 

9-177  10J4 

LIPL 

9-100 

3790 

178 

put  symbol  in  ho 

9-178  9-580 

LIPL 

9-100 

3800 

179 

SET  LINK  of  CELL  1*0  TO 

(0) 

9-179  40H0 

LIPL 

9-100 

3810 

11WC 

LIPL 

9-100 

3820 

J 1 9  7 

LIPL 

9-100 

3830 

PUT  10)  INTO  WG 

20  WO 

LIPL 

9-100 

3840 

SET  W1  (EMPTY  FLAG)  TO 

PLUS 

10J4 

LIPL 

*-100 

3850 

20W1 

LIPL 

9-100 

3860 

FIND  CURRENT  CHARACTER. 

GO  9-100 

9-500 

9-100 

LIPL 

9-100 

3870 

200 

•NEUMONIC  TABLE* 

9-200+  0 

LIPL 

PRINT 

LTS3880 

♦  9-202 

LIPL 

PRINT 

LTS389C 

♦  9-203 

LIPL 

PRINT 

LTS3900 

9-201+  9-204 

LIPL 

PRINT 

LTS3910 

+  9-205 

0 

LIPL 

PRINT 

LTS3920 

9-202+2 1NEUM 

LIPL 

PRINT 

LTS3930 

9-203+2  IONIC 

LIPL 

PRINT 

LTS3940 

9-204+21  TAB 

LIPL 

PRINT 

LTS3950 

9-205+2 1LE 

LIPL 

PRINT 

LTS3960 

210 

•INTERNAL  TBLE ' 

9-210+  0 

LIPL 

PRINT 

LTS3970 

♦  9-211 

LIPL 

PRINT 

LTS3980 

♦  9-212 

9-201 

LIPL 

PRINT 

LTS3990 

9-211+21 INTE 

LIPL 

PRINT 

LTS4000 

9-212+2 1RNAL 

LIPL 

PRINT 

LTS4010 

9-221+2 1ERROR 

LIPL 

PRINT 

LTS4020 

9-222  +  21—  NO 

LIPL 

PRINT 

L  T  54030 

9-223+21  MORE 

LIPL 

PRINT 

LTS4040 

9-224+21  CARO 

LIPL 

PRINT 

LTS4050 

9-225+2 IS  ON 

LIPL 

PRINT 

LTS4060 

9-226+21  UNIT 

LIPL 

PRINT 

LTS4070 

9-227+21  1*18 

LIPL 

PRINT 

LTS4G80 

9-228  +  21— UP 

LIPL 

PRINT 

LTS4090 

9-229+2 1L  REA 

LIPL 

PRINT 

LTS4100 

9-230+21D  GRO 

LIPL 

PRINT 

LTS4110 

9-231+21UP  IN 

LIPL 

PRINT 

LTS4120 

9-232+2 1COMPL 

LIPL 

PRINT 

LTS4130 

9-233+2 1ETE 

LIPL 

PRINT 

LTS4140 

220 

•ERROR — NO  MORE  CARDS* 

9-220+  0 

LIPL 

PRINT 

LTS4150 

♦  9-221 

LIPL 

PRINT 

LTS4160 

-44 


3  DC  PSEUDOS 


311  PStUDO  »ND» — STOP  PROC-kAM 

312  P5U0D0* DT • — SET  OATA  MODE  FLG«- 

313  PStUDO  • WT •  —  SET  DATA  r  LG  MODE- 
315  PSEUDO  'kN* — ERASE  NEUMONIC  ToL 


316  PSEUDO  • R I • — ERASE  INTERNAL  TbL 

317  PStUDO  • PN • — StT  FLAG  9-418  ♦ 


♦  9-222 

LIPL 

PK I  NT  LTS4170 

♦  9-2*3 

LIPL 

PRINT  LTS4180 

♦  9-224 

LIPL 

PRINT  LTS4190 

♦  9-225 

LIPL 

PRINT  LTS42C0 

♦  9-226 

LIPL 

PRINT  LTS4210 

«•  9-227 

LIPL 

PRINT  LTS4220 

♦  9-228 

LIPL 

PRINT  LTS4230 

♦  9-229 

LIPL 

PRINT  LTS4240 

♦  9-230 

LIPL 

PRINT  L  T  342  50 

♦  9-231 

LIPL 

PRINT  LTS4260 

♦  9-232 

LIPL 

PRINT  LTS4270 

♦  9-233  0 

LIPL 

PRINT  LTS4280 

9-3CO  9-301 

LIPL 

PSEUUOS 

4290 

♦  9-311 

LIPL 

PSEUDOS 

4300 

♦  9-302 

LIPL 

PSEUDOS 

4310 

♦  9-312 

LIPL 

PSEUDOS 

4320 

♦  9-303 

LIPL 

PSElDOS 

4330 

♦  9-313 

LIPL 

PSEUDOS 

4340 

♦  9-304 

LIPL 

PSEUDOS 

4350 

♦  9-324 

LIPL 

PSEUDOS 

4360 

♦  9-305 

LIPL 

PSEUDOS 

4370 

♦  9-315 

LIPL 

PSEUDOS 

4380 

♦  9-306 

LIPL 

PSEUDOS 

439C 

♦  9-316 

LIPL 

PSEUDOS 

4400 

♦  9-3u7 

LIPL 

PSEUDOS 

4410 

♦  9-317 

LIPL 

PSELDOS 

4420 

♦  9-308 

LIPL 

PSEUDOS 

4430 

♦  9-318 

LIPL 

PSEUDOS 

4440 

♦  9-309 

LIPL 

PSEUDOS 

4450 

♦  9-319 

LIPL 

PSEUDOS 

4460 

♦  9-310 

LIPL 

PSEUDOS 

4470 

♦  9-320  0 

LIPL 

PSEUDOS 

4480 

9-301 *2 1ND 

LIPL 

PSEUDOS 

4490 

9-302+2 IDT 

LIPL 

PSEUDOS 

45C0 

9-303  +  2  1RT 

LIPL 

PSEUDOS 

4S1C 

9-304+2 1GT 

LIPL 

PSEUDOS 

432C 

9-3C5*21*N 

LIPL 

PSEUDOS 

4530 

9-306+2 1R I 

LIPL 

PSEUDOS 

4640 

9-307*2 1PN 

LIPL 

PSEUDOS 

4550 

9-3C8+2 IP  1 

LIPL 

PSEUDOS 

4560 

9- 309+2 1 NL 

LIPL 

PSEUDOS 

4570 

9-3 1 3*2 1  T9 

LIPL 

PSEUDOS 

4500 

9-311  J3  0 

LIPL 

PSEUDOS 

4590 

9-312  10J4 

LIPL 

PSEUDOS 

4600 

209-411  J4 

LIPL 

PoEUDUo 

4610 

9-313  10J3 

LIPL 

PSEUDOS 

4620 

209-411  J4 

LIPL 

PSEUDOS 

46  30 

9-315  109-400 

LIPL 

PoEuCOS 

4640 

9-321  J60 

LIPL 

PSEUDOS 

4650 

709-3*2 

LIPL 

PSEUDOS 

h66C 

12HC 

LIPL 

PSEUDOS 

4670 

J9 

LIPL 

PSEoDOS 

4630 

J60  9-321  LIPL 

PSEUDOS 

469C 

9-322  509-400 

LIPL 

PSEUDOS 

4700 

J75 

LIPL 

PSEUDOS 

4710 

J7 1  J4 

LIPL 

PSEUDOS 

4720 

9-316  109-403 

LIPL 

PSEUDOS 

473C 

J15  J4 

LIPL 

PSEUDOS 

4740 

9-317  10J4 

LIPL 

PSEUDOS 

4760 

209-418  J4 

LIPL 

PjEuDOS 

4760 

45 


318  PStuDC  'PI'  —  Sc.  T  FLAG  5-415  ♦ 

319  PSEUDO  •  NL  •  —  SET  CLAS  9-417  - 

221  PSEUDO  *  TR  • —  TRACE  LIPL 
LI  PL  DEEUoGING  A 10 
TURNS  ON  FJLL  TRACE 
324  PSEUDO  •  o T  •  —  FIND  NEXT 

SYMBOL •  P JT  IT  IN  9-415* 

AND  STOP  PROGRAM 


MNEMONIC  TAsLE 
PSEUDO  TABLE 
LOCAL  TABLE 
INTERNAL  T  ABLr 
copy  flag 
ERASE  FLAG 
PRINT  LIST 

LAST  ClLL  CF  PRINT  LIST 
DATA  PODS  F|_mv. 

INTEGlK  CARD  COUNT 

*32=H2  AT  START  Y/N 

LINN  TO  THIS  ROUTINE 

CELL  IN  PR  T  LIST  BEFORE  LAST  COPY 

LISTING  DESIRED  Y/N 

MNEMONIC  TAdLE  DESIRED  Y/N 

INTERNAL  ta^le  desired  y/n 

s/r — find  current  character 

if  character  in  print  line  i*2<* 

AT  COLUMN  1*25  IS  NCN-bLANX. 

PUT  IT  IN  *9  AND  SuT  h5*. 

IF  BLAN< »  FIND  NEXT  NCN-oLANN 

AND  P'JT  IT  IN  *9  *ITH  --5-. 

READ  AND  PRINT  CARu-S  if  needed. 


s/r— find  NEXT  character 

IF  CHARACTER  IN  PRINT  LINE  1*24 
AT  1*25  ♦  1  IS  NON-ELANk. 

PUT  IT  IN  .9  AND  SET  H3*. 


9-31c  10u4 

LIPL 

P  SE  uDOS 

4770 

209-419 

J4 

lIPL 

PSE-uDS 

47  3C 

9-319  10U3 

LIPL 

R  SEuDGS 

4790 

209-417 

U4 

LIPL 

p  S  E  u  u  0  S 

40  00 

9-32C  i:"-9:i 

LIPL 

PGE-DC3 

4s  1  0 

2  0*31 

LIPL 

PSE-DOS 

4  =  20 

C3U4 

C 

LIPL 

PSEuOOS 

4530 

9-324  9-500 

LIPL 

PSEuOCS 

4  6  4  C 

rg 

1 

o 

r-4 

LIPL 

PSEUD 03 

40  5  0 

11*9 

LIPL 

PSEuDOS 

4660 

U 1 0 

LIPL 

PSEuuCS 

-o70 

7v 

J1 

LIPL 

Pjc  uuG  S 

4t.  oO 

9-325  9-560 

LIPL 

PSEu-GS 

4890 

209-415 

J3 

LIPL 

D3EGuG3 

*500 

9-326*  9-327 

r* 

W 

LIPL 

PSE-DOS 

4510 

5-327*  C 

LIPL 

PSEuDOS 

4520 

♦  * 

LIPL 

PSE  JDOS 

4530 

♦  9-326 

LIPL 

P  3  E  U  -  u  S 

4540 

♦  9 

LIPL 

PSEuOOS 

4530 

♦ 

yO 

1 

vu 

rvi 

LIPL 

PSE--/0S 

455  0 

♦  6 

LIPL 

PSEUDOS 

4570 

♦  9-331 

0 

LIPL 

PSEuOOS 

4560 

9-326  9-510 

9-325 

LIPL 

P  SE -DOS 

45  90 

9-329  10U4 

9-332 

LIPL 

PcEuDGS 

3wD  - 

9-331  luU3 

LIPL 

PSEuOOS 

5010 

9-332  9-560 

LIPL 

PSEuDOS 

3020 

209-415 

U3 

LIPL 

p^elCOS 

5030 

S-4CC*  C 

0 

LIPL 

*GRn  CEu 

S504C 

9-401 ♦  0 

9-30  0 

LIPL 

*CRk  CEL 

S5050 

9-402 ♦  0 

C 

LIPL 

aCRn  CEL 

S5C60 

9-4C  3 ♦  C 

c 

LIPL 

*C«<  CELS507C 

9—404*  J3 

c 

LIPL 

*DRn  CELS5060 

9-405*  J3 

LIPL 

»DRN  CEu 

S5  0  5C 

9-406*  0 

c 

LIPL 

*GRx  CEL 

SSI  00 

5—407*  5—406 

w 

LIPL 

*CR<  CEL 

35110 

5-411*  U4 

0 

LIPL 

■t—RN  CEu 

S5120 

9-413*01 

0 

LIPL 

*uRR  CELS5130 

9-414*  C 

0 

LIPL 

*UR<  CEL 

35140 

9-416*  JC 

0 

LIPL 

aCRn  CEu 

S5150 

5-416*  C 

c 

LIPL 

/.OR*.  CELS5160 

9-41  J4 

c 

LIPL 

*0RX  CE- 

S5170 

9-416*  J3 

<* 

w 

LIPL 

*0R<  cel 

stieo 

9-415*  J3 

w 

l:pl 

*CSR  CE- 

S515C 

5-500  11*25 

LIPL9 

-500/510 

52  OC 

1C9-961 

LI»L9 

-5C1/51C 

6210 

J1 1 5 

LIPL9 

-600/510 

52  20 

7C9-511 

LIPL9 

-500/510 

52  30 

ul86 

LIPL9 

-50-/510 

5240 

709-501 

LIPL9 

-5C-/6  1  0 

5250 

2uW  9 

0 

L1PL9 

-5C-/513 

5260 

9-601  11*25 

LIPL? 

-5C0/510 

5270 

U 1  64 

L  IPL-* 

-5C-/510 

52:0 

us 

LIPL9 

-500/510 

5290 

700-511 

L  I  PL  9 

-60. /51C 

5  3  00 

uia6 

9-512 

LIPL3 

-500/51 0 

5  310 

5-510  100-901 

LIPL? 

-60-/510 

5320 

J 1  6  1 

9-500 

LIPL? 

-50C/M0 

5330 

°-5 1 1  9-boO 

LIPL? 

-5C-/51C 

5340 

U 1 6c 

LIRL9 

-5C0/510 

i-.i  • 

»  4* 
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IF  BLANK.  *  FIND  NLXT  NON-uL  ANK 
AND  PUT  IT  IN  to 9  WITH  H5-. 

S/R — CREATE  A  CELL 

IF  LIST  1W34  IS  EMPTY,  H2  IS 
PUT  INTO  to 3 A  AND  9-520  BECOMES 
ROUTINE  J9C . 

OTHERWISE  IT  REMOVES  THE  FIRST 
LIST  CELL,  LOAVES  IT  IN  HO, 

AND  MAKES  ITS  LINK  THE  LINK  OF 
1W34.  THE  CELL  IS  CLEARED. 

THE  SYMBOL  CREATED  IS  NEITHER 
LOCAL  nor  internal. 


S/R — SCAN  FOR  )  OR  ,  JR  =  OR  BLANK 

SET  1W30  TO  THE  NEXT  OCCURANCE 
OF  )  OR  ,  OR  =  OK  BLANK. 

NO  INPUTS  OR  OUTPUTS. 


S/R — SCAN  FOR  )  OR  ,  OR  bLANK 

SET  1*30  To  THE  NEXT  OCCURANCE 
OF  )  OR  ,  OR  PLANK. 

no  inputs  or  outputs. 


709-501 

9-512  20W9  J3 
9-520  9-521  0 

9-521  1  l'to  3  4 
J60 

7C9-522 
40HO 
J 1  9  3 
1 1W34 

J 1 9  7  J  1  24 
9-522  50H2 
20W34 
10J90 
109-520 
J 1  2  1 

J8  J90 
9-530  109-556 
J 1  2  4 
J  1  8  3 
109-557 
J124 
10, 

J 1  8  5 
109-558 
J  1  2  4 
10  ) 

J185 
109-559 
J124 
10  = 

J 1  8  5 
J1  16 
709-532 
J 1 1  6 
709-531 
109-559 
109-557 
J116 

709-554  9-552 
9-531  109-559 
10°-556 
0116 

709-554  '-551 
9-532  J 1 1 6 
709-533 
1 0° -5  58 
109-557 
J1  16 

709-553  9-55C 
9-533  109-558 
109-556 
J 1 1  6 

709-5:>3  9-551 
9-540  109-556 
J124 
J 1  8  3 
109-557 
J  1  2  4 
10  ) 

J  1  8  5 


LIPL9-5CO/510  5360 
LIPL9-500/513  5370 
LIPL  5-520  5  3tiu 

LIPL  9-520  5390 

LIPL  9-520  5400 

LIPL  9-520  5410 

LIPL  9-520  5420 

LIPL  5-520  5430 

LIPL  9-520  5440 

LIPL  9-520  5450 

LIPL  9-520  5460 

LIPL  9-520  5470 

LIPL  9-520  5480 

LIPL  9-520  3490 

LIPL  9-520  5500 

LIPL  9-520  5510 

LIPL9-530/540  5520 
L IPL9-530/540  5530 
LIPL9-530/54C  p540 
L IPL9-530/540  5550 
LIPL9-53C/540  5560 
LIPL9-530/540  5570 
LIPL9-530/540  5580 
L IPL9-530/540  5590 
LIPL9-53u/540  5600 
L IPL9-530/54C  5610 
L IPL9-53U/540  5620 
LIPL9-53C/540  5630 
LIPL9-530/540  5640 
LIPL9-53G/540  5650 
L  IPL9-53C/540  5660 
L  IPL9-530/540  567C 
L  I  PL9-530/540  5680 
L  IPL9-530/540  5690 
L  I  PL9-530/ 540  5700 
L  IPL9-530/540  5710 
L  IPL9-530/540  5720 
LIPL9-530/540  5730 
L  IPL9-53 0/540  5740 
LIPL9-530/540  5750 
L  IPL9-530/540  576C 
LIPL9-53U/54C  5770 
L  IPL9-530/540  5760 
L  IPL9-530/540  5790 
L  IPL9-53C/540  580C 
L IPL9-530/540  5810 
L I PL9-530/540  5820 
LIPL9-530/540  5830 
LIPL9-53U/540  5640 
L IPL9-53u/54C  5850 
LIPL9-530/540  5660 
L IPL9-53C/540  5670 
L IPL9-53U/54C  5cb0 
L IPL9-53C/540  5890 
LIPL9-530/540  39Cu 
LIPL9-530/540  5910 
L I PL9-53C/ 540  5920 
L IPL9-53C/540  5930 
L I PL9-53^/ 540  5940 
L IPL9-53 J/540  3950 
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1 09-5  5ti 

LlPL9-33~/540 

3  96  0 

J124 

LIPL9--3v/64c 

3  ■  7  C 

1-. 

L  IPL9-53C/;‘»C 

59  6  0 

J  1  6  2 

L1PL9-330/54J 

3  9  9  0 

J 1 1  6 

L I PL9-53b/34C 

6  0  0  C 

709-541 

L I PL9-530/540 

6C  1C 

1 j9-55S 

L  I  Pi. 9-530/540 

60  2  0 

J  1 1  5 

L I PL9-53O/540 

603C 

7^9-553 

9-551 

L 1PL9-530/54G 

6040 

9-541 

1 09-557 

L I PL9-53C/54C 

60  5u 

J  1 1  5 

L IPL9-33^/54Q 

6060 

709-552 

9-55  1 

L I PL9-53„/540 

60  70 

9-551 

10  9  —  5  3  6 

9-556 

L I PL9-52-/540 

6080 

9-552 

1 09-5  b  7 

9-5  3  3 

L I PL9-33J/54C 

6090 

9-553 

1C9-558 

9-555 

LIPL9-53C/54C 

6100 

9-554 

1^9-559 

9-563 

L I PL9-53^/54C 

6110 

9-555 

2u*30 

<•> 

L : PL9-53G/540 

6120 

9-556+01 

0 

L I PL9-530/540 

6130 

9-557+01 

V 

L I PL9-530/540 

6140 

9-558+01 

6 

L IPL9-530/54C 

6150 

9-559+01 

V 

L  IPL9-5  30/54O 

6160 

S/R— OUTPUT  SYMBOL  GIVEN  LETTER 

9-560 

9-330 

LIPL  9-560 

6170 

109-901 

LIPL  9-560 

6180 

THIS  ROUTINE  ASSJMLS  THERE  IS  A 

J  1  6  1 

LIPL  9-5o0 

6190 

LETTER  AT  1*25  AN 0  THAT  THE 

J 1  8  6 

LIPL  9-560 

6200 

SYMBOL  BEGINNING  THcRE  IS 

1 U9-00  1 

LIPL  9-550 

62  10 

TERMINATED  BY  )  OK  »  03  =  OR 

J 1  6  1 

LIPL  9-560 

6220 

blank. 

709-566 

LIPL  9-560 

6230 

THE  SYMdOL  IS  OUTPjT  IN  (0). 

J134 

LIPL  9-56C 

6240 

IF  THE  SYMBOL  IS  A  PSEUDO  H5 

70 

9-566 

LIPL  9-560 

6250 

1  1W3C 

LIPL  9-560 

6260 

1 09-901 

LIPL  9-560 

6270 

0114 

LIPL  9-560 

6260 

70 

9-566 

LIPL  9-560 

6290 

IS  SET  -. 

109-563 

LIPL  9-560 

6300 

OTHERWISE  SJ8R0UTI.1  --6 Co, 

0182 

LIPL  9-560 

6310 

WHICH  TAKES  CARE  _AASE  AND 

509-401 

LIPL  9-560 

6320 

COPY,  IS  FIRED  A\„  n5  IS  SET  +  . 

9-561 

060 

LIPL  9-560 

6330 

NEUKONIC  LIST  9-40-  IS  USED. 

709-563 

LIPL  9-56C 

6340 

PSEUDO  LIST  9-401  IS  USED. 

12HC 

LIPL  9-560 

6350 

SUBROUTINES  9-530  AND  9-60C  ARE 

109-568 

LIPL  9-560 

6360 

'  S'  0.  ALSO  9-5 2u. 

0114 

LIPL  9-560 

6370 

70 

9-562 

LIPL  9-560 

6380 

060 

9-561 

LIPL  9-560 

6390 

9-562 

081 

03 

LIPL  9-560 

6400 

9-  5  6  s 

50°-4C0 

LIPL  9-5bC 

6410 

9-564 

060 

LIPL  9-560 

6420 

709-565 

LIPL  9-560 

o4  3  0 

12H0 

LIPL  9-56C 

6443 

109-368 

LIPL  9-5o0 

6450 

0114 

LIPL  9-5e>0 

6460 

70 

9-567 

LIPL  9-560 

6470 

060 

9-564 

LIPL  9-560 

6480 

9-565 

40HC 

LIPL  9-56C 

6490 

109-568 

LIPL  9-560 

6500 

0120 

LIPL  9-560 

6510 

0136 

LIPL  9-560 

6520 

065 

LIPL  9-560 

6530 

9-52  J 

LIPL  9-560 

6540 
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c,  /  R  —  OJTPJT  SYMBOL  GWEN  0  OR  9 

IF  (0)  =  J 3  IT  ASSUMES  THAT 

T H t h l  IS  AN  8  AT  1*25. 

IP  (j)  =  J 4  IT  ASSUMES  A  9. 

IN  EITHER  CASE  IT  ASSUMES  The 
SYMBOL  1 3  TERMINATED  BY  )  OR  » 
CR  =  OR  oLANN. 

THE  SYMBOL  IS  OUTPUT  IN  (w). 
SUBROUTINE  9-6u0.  .vHlCH  TAKES 
CARE  OF  COPY  AN)  ERASE.  IS 
FIRED  AND  H5  IS  SET  +  . 

LOCAL  LIST  9 -4>J 2  IS  jSED. 
INTERNAL  LIST  9-4C3  IS  USED. 
SUBROUTINES  9-520 .  9-53U.  ANU 

9-6 Ue  A  R  e  USED* 


J 1 2  4  LIPL  9-56C 

J13d  LIPL  9-boO 

609-569  LIPL  9-560 

J65  LIPL  9-560 

119-569  9-600  LIPL  9-56C 

9-566  J181  9-6u0  LIPL  >-56e 

9-567  U81  9-600  LIPL  9-5oO 

9-568+21  LIPL  9-560 

9-S69+  0  0  LIPL  9-56C 

9-580  209-594  LIPL  9-560 

109-901  LIPL  9-5  bO 

U 1 6 1  LIPL  9-5  bC 

109-Sol  LIPL  9-5oG 

J 1  B  6  LIPL  9-5o0 

J10  LIPL  9-5  bO 

709-564  J1  LIPL  9-560 

9-581+  9-562  0  LIPL  9-580 

9-582+  0  LIPL  9-560 

+  _  LIPL  9-560 

+  9-583  LIPL  9-560 


LIPL  9-560 


4-  9-569 

4-  / 

4-  9-591 

9-563  1 0  9-9  b 1 
J  1 6  1 

9-584  9-530 

019-594 
709-565 
109-402 
9-585  109-403 
9-586  J161 

609-596 
U10 
7  C 

019-594 
709-5o7 
1 u9-4  j2 
9-520 
J124 
U  1  3  6 

9—  5c  7  1 09-4  v  3 
9-5  2  C 
U  1  2  4 
U 1  3  6 

9-588  6 v> 9 - 5 9 5 
1 19-596 
Ull 

1 19-595 
9-589  109-901 
U  1 6  1 
9-530 
U 1  6  1 
019-594 
7  u  9  —  6  o  0 
U 1  3  6 

9-591  1 u9-90 1 

U 1  6  1 
9-530 
109-9 01 


LIPL  9-560 
LIPL  9-560 
0  LIPL  9-560 
LIPL  9-560 
LIPL  9-5o0 
LIPL  9-560 
LIPL  9-560 
LIPL  9-560 
-566  LIPL  9-580 
LIPL  9-56C 
LIPL  9-560 
LIPL  9-5 oO 
LIPL  9-560 
9-600  LIPL  9-5oG 
LIPL  9-5o0 
L 1  PL  9-5  80 
LIPL  9-560 
LIPL  9-560 
LIPL  9-5cG 
9-56c  LIPL  9-5  bC 
LIPL  *-5o0 
LIPL  9-560 
LIPL  9-560 
LIPL  9-5o0 
L I  PL  9-560 
LIPL  9-5  oO 
LIPL  9-5o0 
9-6«u  LIPL  9-560 
LIPL  9-560 
LIPL  9-580 
LIPL  9-500 
L  I  P  L  9  -  5  o  0 
LIPL  9-560 
LIPL  9-560 
9 - 6 0 0  LIPL  9-5o0 
LIPL  9-500 
LIPL  9-580 
LIPL  9-560 
LIPL  9-560 


6550 
6560 
6570 
6530 
6590 
6600 
6610 
662  0 
6630 
6640 
6650 
6660 
66  1 0 
6660 
6690 
6700 
o  7  1  0 
6720 
6730 
6740 
6750 
6760 
6770 
6760 
6790 
6800 
6810 
6820 

68  30 
6tt4Q 
66  5C 
6660 
6870 
6o60 
6890 
6900 
6910 

69  2  0 

69  30 
o  9  4  0 
6950 
6960 
6970 
6960 
6990 
7000 
7010 
7020 

70  30 

70  4  C 
7050 
7060 
7070 
7060 
7090 
7100 

71  1C 
7120 
7130 
7140 
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S/P-- ERASE  and  copy  if  required 

IF  COPY  FLAG  IS  ON  STRUCTURE 
(0)  IS  COPIED  AND  THE  NAME  OF 
THE  COPY  IS  LEFT  AS,  OUTPUT  (0). 
THE  COPY  IS  PUT  ON  THE  PRINT 
LIST. 

IF  ERASE  FLAG  IS  ON  1  riEN  (0)  IS 
ERASED  AS  A  STRUCTURE  OR  RGUTNE 
DEPENDING  ON  THE  DATA  MODE  FLAG 
AND  INPUT  ( 0  )  IS  OUTPUT  (0  )  . 


CELL  (0)  IS  NOT  ERASED.  IT  IS 
CLEARED. 


IF  THE  COPY  AND  ERASE  FLAGS  ARE 
BOTH  ON  THEN  THE  COPY  IS  MADE 
AND  THE  ORGINAL  IS  THEN  ERASED. 
IF  NEITHER  FLAG  IS  ON  THEN 
INPUT  10)  IS  OUTPUT  (0). 

IN  ANY  CASE  H5  IS  SET  +« 

THE  COPY  AND  ERASE  FLAGS  ARE 
TURNED  OFF. 


109-599 
109-598 
J 1  2  8 
J1  32 
J 1  2  b 
1 09-801 
J 1 6  1 

J 1 5  9  9-589 


9-594+  0  0 

9-595+  C  0 

9-596+  0  0 

9-598+01  G 

9-599+31 
9-600  019-404 

70  9-602 


C  1  9-405 
70J4 
10J3 
209-405 
019-411 
40H0 
7C9-6J1 
J120 
J72 

109-618 

06  J  1  2 1 
9-601  J20 1  J4 

9-602  050 

119-407 

061 

209-416 

1003 

209-404 

1  iwo 
9-606 
11WC 
0132 
709-603 

0136  9-604 

9-603  0136 

9-604  119-619 
071 
10  C 
209-619 
019-405 
709-605 
1003 
209-405 
1  IWO 
0120 
072 

109-618 
11^0 
0121 

08  030 

9-605  030  04 

9-606  40HC 

109-619 
06 


L  I  PL 

9-5bQ 

7150 

L  I  PL 

9-5b0 

7160 

LIPL 

9-580 

7 1  7  C 

L  I  PL 

9-580 

7  1  oO 

LIPL 

9-580 

7190 

LIPL 

9-5o0 

7200 

LIPL 

9-560 

7210 

LIPL 

9-580 

722C 

LIPL 

9-580 

7230 

LIPL 

9-580 

724C 

LIPL 

9-56C 

7250 

LIPL 

9-580 

7260 

LIPL 

9-560 

7270 

LIPL 

9-6oQ 

7280 

LIPL 

9-600 

7290 

LIPL 

5  —  600 

7300 

LIPL 

9-600 

7310 

LIPL 

9-600 

7320 

LIPL 

9-600 

7330 

LIPL 

°-600 

7340 

LIPL 

9-6C0 

7350 

LIPL 

9-600 

7360 

LIPL 

9-600 

7370 

LIPL 

9-600 

7380 

LIPL 

9-600 

7390 

LIPL 

9-6o  0 

7400 

LIPL 

9-600 

74 1  C 

LIPL 

9-600 

7420 

LIPL 

9-600 

7430 

LIPL 

9-6o0 

7440 

LIPL 

9-600 

7450 

LIPL 

9-600 

7460 

LIPL 

9-600 

7470 

LIPL 

9-6C0 

7480 

LIPL 

9-6C0 

7490 

LIPL 

9-600 

7  50  C 

LIPL 

9-600 

7510 

LIPL 

9-600 

752C 

LIPL 

9-6C0 

7530 

LIPL 

y-600 

7540 

LIPL 

9-600 

7550 

LIPL 

9-6CC 

7560 

LIPL 

9-6v,0 

7570 

LIPL 

9-600 

7580 

LIPL 

9-600 

759C 

LIPL 

9-600 

7600 

LIPL 

9-6C0 

7610 

LIPL 

9-6v0 

7620 

LIPL 

9-6o0 

7630 

LIPL 

9-6O0 

7640 

LIPL 

9-600 

7650 

LIPL 

9-6^0 

7660 

LIPL 

9-600 

76^0 

LIPL 

9-600 

7680 

LIPL 

9-600 

7690 

LIPL 

9-600 

7700 

LIPL 

9-600 

771  C 

L  I  PL 

9-600 

7720 

L  I  PL 

9  -  6  j  C 

7730 

-50- 


J 1  0 

LIPL 

9-6u0 

7740 

709-607 

L  I  PL 

9-6^0 

7750 

J6 

Jd 

LIPL 

9-6  v  0 

7760 

9-607 

J  92 

LIPL 

9-6oC 

7  7  70 

2  C  W  0 

LIPL 

9-6l0 

7  7  o  0 

109-619 

LIPL 

9-6  0  0 

7790 

9-520 

LIPL 

9-6o0 

7800 

6  0  W 1 

LIPL 

9-600 

7810 

6CW2 

LIPL 

9  -  6  o  0 

7820 

1  U'C 

LIPL 

9-60C 

7830 

J 1 1 

LIPL 

9-600 

7640 

11  wo 

LIPL 

9-600 

7850 

J 1  3  1 

LIPL 

9-bCO 

7o6C 

709-608 

LIPL 

9-600 

7870 

119-407 

LIPL 

9  -  6  J  C 

7880 

109-408 

LIPL 

9-6u0 

7890 

J65 

LIPL 

9-600 

7900 

119-407 

LIPL 

9-600 

7910 

11W1 

LIPL 

9-6u0 

7920 

J6  5 

LIPL 

9-6C0 

7930 

1 19-407 

LIPL 

9-600 

7940 

J61 

LIPL 

9-600 

7950 

209-407 

LIPL 

9-600 

7960 

ll'WC 

LIPL 

9-600 

7970 

11W1 

LIPL 

9-6  v,C 

7980 

J 1  3  6 

LIPL 

9  -  6  0  U 

7990 

J  1  2  1 

J  32 

LIPL 

9-600 

oOu  0 

9-608 

119-407 

LIPL 

9-6^0 

oOlC 

109-409 

LIPL 

9-600 

8020 

J65 

LIPL 

9-6o0 

8  0  30 

9-609 

1  19-407 

LIPL 

9-600 

8040 

40H0 

LIPL 

9-600 

8C5C 

11W1 

LIPL 

9-600 

dC60 

J65 

LIPL 

9-6L0 

8C70 

J61 

LIPL 

9-6u0 

808C 

209-407 

LIPL 

9-6lG 

8C90 

1  2  W  C 

LIPL 

9-6o0 

olOQ 

4CHO 

LIPL 

9-6  00 

8110 

J 1  3  2 

LIPL 

9-6u0 

8120 

709-611 

LIPL 

9-600 

d  1  30 

9-606 

LIPL 

9-600 

8140 

9-611 

21W1 

LIPL 

9-600 

8150 

11  WO 

LIPL 

9-600 

8160 

J60 

LIPL 

9-6C  J 

817C 

2  0  WO 

LIPL 

9-600 

8180 

709-612 

LIPL 

9-600 

6190 

9-520 

LIPL 

9-6CC 

6  2  00 

40HQ 

LIPL 

9-600 

8210 

1  1W1 

LIPL 

9-600 

8220 

J  1  9  7 

LIPL 

9-6  jC 

82  3  C 

2  0W1 

9-609 

LIPL 

9-6v>0 

8240 

9-612 

10  0 

LIPL 

9-6o0 

8250 

11*1 

LIPL 

V  -  6  o  0 

8260 

J 1  9  7 

LIPL 

9-6oQ 

6270 

119-407 

LIPL 

9-600 

d2  80 

40H0 

LIPL 

9-600 

8290 

109-410 

LIPL 

9-6u0 

8300 

J65 

LIPL 

9-600 

8310 

J60 

LIPL 

9-600 

6320 

209-407 

LIPL 

9-6u0 

8330 

-51- 


S/R  — SET  OCTAL  DATA 

(G)  BECOMES  OCTAL  DATA  TERM  AT 
1W 25  AND  TERMINATED  BY  .  OK  ) 
OR  BLANK.  I T  LEAVES  ( G  )  . 

IT  IS  PUT  ON  THE  PRINT  LIST. 

IT  ASSUMES  1W25  IS  A  /. 


S/R — SET  NUMERIC  DATA 

(0)  BECOMES  THE  INTEGER  OR 
FLOATING  POINT  DATA  TERM  AT 
1  W2  5  AND  TERMINATED  BY  .  OR  ) 
OR  BLANK.  IT  LEAVES  (C). 

IT  IS  PUT  uN  TnE  PRINT  LIST. 
IT  ASSUMES  1  Vv 2 5  IS  +  OR  -. 

THE  NUMBER  OUTPUT  IS  ALWAYS 
POSITIVE. 


11W2 

J 1 36  J32 

9-618+  0  0 

9-619-*  0  0 

9-620  109-901 
J 1 6  1 
109-621 
J6 

J  1  2  1 
9-54u 
J  1  8  2 
119-407 
109-408 
J65 
40HG 
1 1 9-4 J  7 
J6 
J65 

119-407 

J61 

209-407  0 

9-62 1 ♦ 3 1 
9-630  J 1 2  4 
209-649 
119-407 
109-408 
J65 

119-407 

119-649 

J65 

119-407 

J61 

209-407 
109-645 
J  1  2  4 
10. 

J 1  8  5 
109-901 
J 1 6  1 
9-540 
11*30 
J 1 1 6 
709-631 
119-649  J182 
9-631  109-645 
4  0*30 
2CW30 
1C9-646 
J 1  8  2 
509-801 
J 1  6  1 
109-801 
11W30 
40HC 
J110 
3  0  W  3  0 
11*30 
4CH0 
J  1  1  1 


L  1  PL 

9-600 

8340 

LIPL 

9-600 

8350 

LIPL 

9-600 

8360 

LIPL 

9-600 

8370 

LIPL 

9-620 

8380 

LIPL 

9-620 

b390 

LIPL 

9-620 

8400 

LIPL 

9-620 

8410 

LIPL 

9-620 

8420 

LIPL 

9-62U 

8430 

LIPL 

9-620 

<1440 

LIPL 

9-620 

8  4  d  0 

LIPL 

9-620 

8460 

LIPL 

9-620 

o470 

LIPL 

9-620 

8480 

LIPL 

9-620 

8490 

LIPL 

9-620 

8500 

LIPL 

9-620 

6510 

LIPL 

9-620 

8520 

LIPL 

9-6^0 

8530 

LIPL 

9-620 

3540 

LIPL 

9-620 

8550 

LIPL 

9-630 

8560 

LIPL 

9-630 

6570 

LIPL 

9-630 

8560 

LIPL 

9-630 

o59Q 

LIPL 

9-630 

8600 

LIPL 

9-  6  jO 

6610 

LIPL 

9-630 

8620 

LIPL 

9-630 

8630 

LIPL 

9-630 

6640 

LIPL 

9-630 

8650 

LIPL 

9-630 

8660 

LIPL 

9-630 

8670 

LIPL 

9-630 

6680 

LIPL 

9-63C 

8690 

LIPL 

9-630 

8700 

LIPL 

9-630 

6710 

LIPL 

9-630 

8720 

LIPL 

9-630 

6730 

LIPL 

5-63C 

8740 

LIPL 

9-630 

8750 

LIPL 

9-630 

8760 

LIPL 

9-630 

8770 

LIPL 

9-630 

8780 

LIPL 

9-630 

8790 

LIPL 

9-630 

8800 

LIPL 

9-630 

08 1  0 

LIPL 

9-630 

8820 

LIPL 

9-630 

6830 

LIPL 

9-630 

88  4C 

LIPL 

9-630 

8850 

LIPL 

9-630 

8860 

LIPL 

9-630 

8870 

LIPL 

9-630 

8880 

L  I  PL 

9-630 

8890 

LIPL 

9-63C 

8900 

LIPL 

9-630 

8910 

LIPL 

9-630 

8920 

-52- 


509-645 

LIPL  9-630 

8930 

J1 82 

LIPL  9-630 

8940 

109-647 

LIPL  9-630 

6950 

109-648 

LIPL  9-630 

8960 

J110 

LIPL  9-630 

8970 

9-632  51W30 

LIPL  9-630 

8980 

1C9-901 

LIPL  9-630 

8990 

J  1  1  4 

LIPL  9-630 

9000 

70 

9-633  LIPL  9-630 

9010 

109-910 

LIPL  9-630 

9020 

109-648 

LIPL  9-630 

9030 

40H0 

LIPL  9-630 

9040 

J 1 1  3 

LIPL  9-630 

9050 

509-901 

LIPL  9-630 

9060 

1 1 W  30 

LIPL  9-630 

9070 

4GHC 

LIPL  9-630 

9080 

Jill 

9-632  LIPL  9-630 

9090 

9-633  109-648 

LIPL  9-630 

9100 

109-646 

LIPL  9-630 

9110 

119-649 

J110  LIPL  9-630 

9120 

9-645+01 

0  LIPL  9-630 

9130 

9-646+01 

0  LIPL  9-630 

9140 

9-647+110 

0  LIPL  9-630 

9150 

9-646+ 11C 

0  LIPL  9-630 

9160 

9-649+  0 

0  LIPL  9-630 

9170 

S/R— SET  ALPHANUMERIC  DATA 

9-650  109-801 

LIPL  9-650 

9180 

109-677 

LIPL  9-650 

9190 

ASSUMES  THERE  IS  A  S  AT  lw 25. 

J124 

LIPL  9-650 

92  0C 

IF  THE  NEXT  i  OCCuRES  IN  THE 

los 

LIPL  9-650 

9210 

NEXT  Five  SPACES  IT  MAXES  (0) 

J  1  8  5 

LIPL  9-650 

9220 

A  BCD  DATA  TERM,  PUTS  IT  ON 

40HC 

LIPL  9-650 

9230 

THE  PRINT  LIST.  SETS  H5  +  ,  AND 

J110 

LIPL  9-650 

9240 

LEAVES  ( 0  > • 

709-653 

LIPL  9-650 

9250 

OTHERWISE  IT  MAKES  (0)  THE  HEAD 

109-905 

LIPL  9-650 

9260 

OF  A  LIST  OF  LOCALLY  NAMED 

J  1 1  6 

LIPL  9-650 

9270 

BCD  DATA  TERMS.  PUTS  THE  LIST 

70 

9-654  LIPL  9-650 

9280 

109-678 

LIPL  9-650 

9290 

J6 

LIPL  9-650 

9300 

J 1 2  1 

LIPL  9-650 

9310 

AND  DATA  TERMS  ON  THE  PRINT 

109-677 

LIPL  9-650 

9320 

LIST,  SETS  H5  AND  LEAVES  (0) 

J122 

LIPL  9-650 

9330 

AND  IT  READS  AND  PRINTS  CARDS 

109-900 

LIPL  9-650 

9340 

IF  REQUIRED. 

J 1 1 4 

LIPL  9-650 

9350 

709-651 

LIPL  9-650 

9360 

109-902 

LIPL  9-650 

9370 

J 1  6  1 

9-652  LIPL  9-65C 

9380 

9-651  109-677 

LIPL  9-650 

9390 

2CW30 

LIPL  9-650 

9400 

109-901 

LIPL  9-650 

9410 

J 1 6  1 

LIPL  9-650 

9420 

J 1  8  2 

LIPL  9-650 

9430 

109-901 

LIPL  9-650 

9440 

J 1 6  1 

LIPL  9-6 ?0 

9450 

9-652  119-407 

LIPL  9-650 

9460 

109-408 

LIPL  9-650 

9470 

J65 

LIPL  9-650 

9480 

4GH0 

LIPL  9-650 

9490 

119-407 

LIPL  9-650 

9500 

J6 

LIPL  9-650 

9510 

J65 

LIPL  9-650 

9520 

53- 


9-653 

9-654 


9-655 


9-656 


9-657 


9-656 


9-659 


119-437 

L  IPL 

9-633 

9  5  33 

J61 

L  IPL 

9  -  6  5  C 

9  5  4  3 

2u9-437 

O 

L  I  PL 

9-653 

9  5  5  C 

J  8 

L  IPL 

>-620 

9  26o 

139-901 

LIPL 

9-023 

9  5  7  w 

J 1  6  1 

L  IPL 

9-623 

9  5  0  ^ 

1  0  r<  -  6  7  fe 

LIPL 

9-65  3 

9  5  9^ 

J6 

L  IPL 

9-620 

3  6  3  3 

J  1  2  1 

l  IPL 

9-650 

9610 

6C9-679 

L  I  P'.. 

9-6  5  0 

9623 

1  19-437 

LIPL 

9-650 

9633 

109-439 

LIPL 

9-650 

9  643 

J65 

LIPL 

9-653 

9  6  3  3 

1  19-4C7 

LIPL 

9-653 

9  66  3 

119-679 

LIPL 

9-650 

9673 

J65 

LIPL 

9-653 

>  6  c  v 

1  1  9-437 

LIPL 

9-630 

9693 

J61 

LIPL 

9-650 

?700 

2  09-407 

LIPL 

9-65C 

9713 

9-675 

LIPL 

9-6  5  C 

972C 

139-933 

LIPL 

9-650 

973C 

J1  86 

LIP'. 

9-650 

9740 

739-656 

LIPL 

9-6  5  C 

9753 

13$ 

LIPL 

9-6  5  C 

>763 

J  2 

LIPL 

9-650 

9773 

70 

9-669 

LIPL 

9  -  6  2  C 

9  7  d  3 

539-834 

LIPL 

9-65  0 

9  7  9  C 

109—901 

LIPL 

9-62C 

9533 

J  1  6  1 

LIPL 

9-6  2  0 

9  b  1  0 

J 1  86 

LIPL 

9-620 

9  0  2  3 

739-657 

LIPL 

9-650 

9833 

13$ 

LIPL 

9-620 

9  b  43 

J2 

LIPL 

9-650 

9353 

70 

9-663 

LIPL 

9-653 

9dbc 

509-833 

LIPL 

9-650 

937C 

139-901 

LIPL 

9-650 

986C 

J 1 6  1 

LIPL 

9-653 

9693 

J  1  8  6 

LIPL 

9-623 

9  903 

739-656 

LIPL 

9-650 

9  9  1  C 

1  3  » 

LIPL 

2  —  6  2  0 

5  9  2  3 

JZ 

LIPL 

9-650 

99  3  0 

7u 

9-664 

LIPL 

9-650 

9940 

539-8C2 

LIPL 

9-6  5  0 

9953 

139-901 

LIPL 

9-6  5  C 

9963 

J 1  6  1 

LIPL 

9-653 

9  9  70 

J 1  3  6 

L  I  PL 

v-620 

9963 

739-659 

L  I  PL 

9-623 

999C 

ICS 

L  IPL 

9-653 

O^CO 

J2 

LIPL 

9-650 

c  c  1  0 

7  C 

9-665 

LIPL 

9-65Q 

3  32  3 

5  39-63 1 

LIPL 

9-650 

uC  33 

1  o  9  -  9  o  1 

LIPL 

9-6  5  « 

u  j  4  3 

J  1  6  1 

LIPL 

9  -  6  5  C 

GC50 

J  1  8  6 

LIPL 

9  -  6  2  C 

C^oO 

739-661 

L  I  PL 

9-623 

C 73 

10$ 

LIPL 

9-6  2  0 

83 

JZ 

LIPL 

9-650 

339  C 

70 

9-667 

LIPL 

9-65C 

vj  1  03 

539-930 

LIPL 

9-650 

C113 

-54- 


5-661  l*9-d*4 
J  1  6  1 

1  u  9  -  9  *  5 

2  *  **  3  * 

9-520 
4vHC 
1 19-679 
J 1  5  7 
239-679 
1C9-6  7b 
9-5  2  J 
J1  36 
J12  1 
J  1  6  2 
219-679 
119-437 
1  19-675 
J65 

1 19-407 

1 *9-4*b 
J65 

119-407 
129-679 
J65 

119-407 
J61 

2*9-4.7 

J 1 6 1  9-665 

9-663  5  *  9  -  9  j  1  5-66o 
9—664  5  3-9.2  9  — obc 
9-665  5  *  9  -  9  *  3  9-66c 
9-667  5^9-9. 4  9-66o 
P  -  6  6  8  6 3  -v  3 C 
11/26 
40l  V 
Jill 
J  8 

9-520 
4 :  h  3 
1 19-679 
J  1  9  7 
209-679 
1  o  9  -  b  7  o 
9-520 
J  1  36 
J  1  2  l 
J  1  6  2 
219-679 
1  19-4.7 
1 1 9-679 
J65 

1 19-4J7 
1 *9-40d 
J  6  2 

119-437 

129-679 

J65 

9-669  139-901 
J16  1 
1  19-407 


L  I  PL 

9-6  5  3 

012  J 

L  !  PL 

6-6  oC 

01  30 

LIPL 

9-6*0 

0140 

L  I  PL 

9-6  5  C 

0150 

L  I  PL 

-6  i  3 

LIPL 

9-650 

ol  70 

LIPL 

9  -  6  2  0 

Jdj 

L  I  PL 

9-650 

019* 

LIPL 

9-650 

0  2  0  0 

LIPL 

9-6  50 

0210 

L  I  PL 

9-650 

J  2  2  C 

LIPL 

5-650 

02  30 

LIPL 

9-650 

0240 

LIPL 

9-650 

u2  50 

LIPL 

9-650 

0  2  60 

LIPL 

9-6bC 

02  70 

LIPL 

9-623 

j2  bO 

L  I  PL 

9-620 

0290 

LIPL 

9-620 

0  3  0  * 

L  I  PL 

9-650 

0310 

LIPL 

9-660 

0320 

L  I  PL 

9-650 

0  330 

LIPL 

9-650 

034C 

LIPL 

9-620 

0350 

L  I  PL 

9-6  5  C 

*360 

LIPL 

9-650 

70 

LIPL 

9-62C 

*  3  0  0 

LIPL 

9-65C 

039C 

L  I  PL 

■/-6  5C 

*40* 

LIPL 

9-650 

*  4  1  0 

LIPL 

9-6  50 

J423 

L  I  PL 

9-650 

0430 

LIPL 

9-650 

*  4  4  * 

L  I  PL 

9-fc  2 C 

3  450 

L  I  PL 

9-6  5  C 

*  4  6  0 

L  I  PL 

9  -  6  5  C 

j4  70 

L  I  PL 

9-6  5  0 

0480 

L  I  PL 

9-650 

C  4  9  C 

LIPL 

9-650 

u  5  0  0 

LIPL 

5-650 

0  5 1  C 

LIPL 

9-6  2  0 

b  5  2  3 

L  I  PL 

9-6  20 

3  5  3u 

LIPL 

9-6  2 0 

0540 

L  I  PL 

9-650 

0550 

L  I  PL 

9-6  50 

0560 

LIPL 

9-650 

0570 

L  I  PL 

9-650 

'■580 

L  I  PL 

9-650 

0  5  90 

L  I  PL 

9-650 

*600 

L  I  PL 

9-650 

0610 

LIPL 

9-650 

*  6  2  0 

L  I  PL 

9-650 

0630 

LIPL 

7-62C 

b  64  * 

L  I  PL 

9-650 

065C 

L  I  PL 

9-620 

*660 

L  I  PL 

9  -  6  5  C 

0  6  70 

LIPL 

9-65  1 

O  6  b  C 

L  I  PL 

9-65C 

069C 

L  I  PL 

9-650 

0730 

LIPL 

9-620 

07  10 

-55- 


S/R — READ  AND  PkINT  CARDS 

CLEARS  PRINT  LINE  AND  READS  A 
CARD.  I F  THERt  IS  NO  CARD 
PRESENT  IT  PRINTS  'ERROR  — NO 
CARD*  AND  IT  TH£N  DOES  A  J7. 

IF  THERE  I S  A  CARD  IT  PoTS 
INTO  THE  PRINT  LINE  AT  COLUMN 
llu  THE  WORD  'CARD'  FOLLOWED 
BY  AN  INTEGER  CARD  COUNT. 

IT  THEN  PRINTS  THE  PRINT  LINE. 
IT  ADDS  THE  SYMBOL  *NE*  CARD* 
TO  THE  PRINT  LIST  FOLLOWED  oY 
THE  CARD  NUMBER  /.HERE  The  CARD 
NUMBER  IS  A  LOCAL  DATA  TERM. 
1W25  IS  SET  TO  ONE. 


109-410 
J65 

119-407 
J61 

209-407 

1  \J 

119-679 
J  1  9  7  J  3 
9-675  11*25 

109-961 
J1  1  5 

7*9-660  0 

9-676  +  c  0 

9-677+0 1 
9-67S+21 

9-679+  V  C 

9-680  0134 

0183 
739-681 
109-668 
0163 
139-609 
0157 
109-687 
0160 
109-413 
0125 
0157 
0155 
119-437 
1  09-412 
065 

1  19-4  0  7 
109-413 

0123 
065 

119-407 
061 

2  C  9-43  7 
1*9-688 
1102  5 

012  1 
5C9-693 
0157 
109-690 
0157 
11/21 
1  1*25 

0121  08 
9-681  0154 

0155 
1  39-220 
130157 
01u« 

0155  07 

9-687+01  115 

9-666+01  109 

9-689+21CARD 
9-693+21 


L  I  PL 

9-65C 

07  2  0 

L  I  PL 

9-650 

*  7  3  0 

L  I  PL 

9-630 

37  +  0 

L  I  PL 

9-650 

07  5o 

L  1  PL 

9-bov 

*  7  60 

L  I  PL 

9-bod 

0  7  7u 

L  I  PL 

9-650 

*  7  6  0 

L  I  PL 

9-650 

*  7  9  0 

L  I  PL 

9-630 

0800 

L  I  PL 

9-650 

0810 

L  I  PL 

9-65C 

0820 

L  IPL 

9-650 

C830 

L  I  PL 

9-650 

0840 

L  I  PL 

9-650 

^8  50 

L  IPL 

9-650 

0060 

LIPL 

9-630 

-.670 

L  I  PL 

9  —  6  o  C 

0  6  6  0 

L  I  PL 

9-660 

0890 

L  IPL 

9-6  80 

0900 

L  IPL 

9-6o3 

0910 

L  I  PL 

9-660 

0920 

L  IPL 

9  -  6  6  0 

u93i* 

L  IPL 

9-660 

0940 

LIPL 

9  —  6  6  C 

095C 

L  IPL 

9-680 

0960 

LIPL 

9-660 

0970 

LIPL 

9-680 

0980 

LIPL 

9-6b0 

0990 

LIPL 

9-66u 

1 0  J 

LIPL 

+  -60G 

1010 

LIPL 

9-660 

1020 

LIPL 

9-660 

1030 

L  IPL 

9-660 

1040 

L  I  PL 

9-660 

1050 

LIPL 

9-680 

1  C6C 

LIPL 

9-fefaC 

1070 

LIPL 

9-680 

1060 

L  I  PL 

9-660 

1390 

LIPL 

9-680 

1100 

LIPL 

v  — 6a  j 

1110 

LIPL 

9-66C 

1120 

L  I  PL 

9-6oC 

1  1  30 

LIPL 

9-66C 

1140 

LIPL 

9  —  6  o  * 

1150 

L  I  PL 

9-68C 

1160 

L  I  PL 

9-660 

1173 

LIPL 

«-6o0 

1183 

LIPL 

9-6fao 

1190 

L  I  PL 

9  —  660 

1200 

LIPL 

9-660 

1210 

L  IPL 

9-6SC 

1220 

LIPL 

9  —  6oG 

12  30 

L  I  PL 

9-66C 

124* 

L  I  PL 

9-660 

i  2  5  u 

L  IPL 

9-660 

1260 

L  I  PL 

9  —  6  6  0 

1270 

L  I  PL 

9-660 

1260 

L  I  PL 

7-660 

1293 

L  I  PL 

9-6cG 

1300 

-56- 


S/R — PR1MT  AND  ERASE  PRINT  LIST 


THE  PAGE  IS  DIVIDED  INTO 
FOUR  VERTICAL  oTRIPS.  EACH 
28  COLUMNS  WlDs.. 

A  LIST  IS  PRINTEu  UO-N  a  STRIP. 
THE  HIGHEST  LEVEL  LISTS  ARE 
PRINTED  DOWN  THE  LEFT  STRIP. 
THERE  SU3LISTS  ARE  INTERPOLATED 
AND  PRINTED  IN  THE  STRIP  TO  THE 
RIGHT  OF  THE  SUPER-LIST. 

ALL  LISTS  OF  DEPTH  THREE  OR 
GREATER  ARE  PRINTED  IN  THE 
THIRD  STRIP  FROM  THE  LEFT. 

LISTS  AT  THE  HIGHEST  LtVLL  AND 
LISTS  OF  DEPTH  T'iRlE  OK 
GRtATER  ARE  SEPERATED  UY 
PRINTING  ONE  BLANK  LINE  BEFORE 
AND  AFTER. 

DATA  TERMS  AT  THE  HIGHEST  LEVEL 
ARE  PRINTED  IN  ThE  LEFT  STRIP. 
IF  A  DATA  TERM  IS  NAMED  IN  A 
SUbLlST  IT  IS  PRINTED  ON  THE 
SAME  LINE  AS  Th£  CELL  THAT 
NAMES  IT  AND  IN  THt  NEXT  STRIP 
TO  THE  LEFT  OF  Th£  CELL  THAT 
NAVES  IT. 

THE  NAME  oOES  IN  COLUMN  1. 

P  IN  COLUMN  6.  0  IN  IS*  SY*fe  IN 
12.  AND  LINK  IN  la-22 .  MOD  2a. 
CARD  NUMiit  R5  ARE  PRINTED  AS 
•CARD  N •  uCGINMNG  AT  COLUMN 
111.  THEY  ARE  PRINTED  UN  THE 
SAKE  LINE  AS  ThE  FIRST  THING 
ASSEV3LED  oY  THAT  CARC.  IF  A 
CARD  CAUSES  NOTHING  TO  tit 
ASSEMBLED  IAS  FDR  EXAMPLE  A 
CARD  WITn  NOTHING  BUT  COMMENTS) 
THAT  CARD  NUKolR  iS  NOT  PRINTED 
AT  ALL. 

The  HIGHLST  LEVEL  CELLS  ON  The 
PRINT  LIST  THAT  ARE  NOT  DATA 
TERMS  ARt  NOT  PART  OF  ANY  LIST 
AND  HENCE  ARE  ERASED.  The  CARD 
NUMBERS  In  Tmf  PKInT  LIST  ARE 
ALSO  ERASED.  IVHEN  DONE.  THE 
PRINT  LIST  IS  ERASED  AND  THE 
NAME  OF  ThE  PRINT  LIST  IS  PJT 
IN  THE  'LAST  CELL  OF  PRINT  LIST 
•  WORKING  CELL. 

NO  EXTERNAL  oUuSoGTINEj  ARE 
USED.  •  EXCEPT  9-7BO  IF  NO 

LISTING  IS  RED. I  RED. 


9-7DD  J154 

L 

PL 

9-700 

1310 

019-417 

L 

PL 

9-700 

1320 

709-760 

L 

[PL 

9-700 

1330 

109-406 

L 

[PL 

9-7C0 

1340 

9-701  J60 

L 

PL 

9-700 

1350 

7  J 

9-702 

L 

PL 

9-700 

1360 

5C9-<*G6 

L 

PL 

9-7o0 

1370 

609-407 

L 

PL 

9-7C0 

1380 

J75 

J71 

L 

[PL 

9-700 

1390 

9-702  12HC 

L 

[PL 

S-7C0 

1400 

109-705 

L 

IPL 

9-700 

1410 

J6 

L 

IPL 

9-700 

1420 

J10 

L 

[PL 

9-7D0 

1430 

709-70  3 

L 

IPL 

9-700 

1440 

J1 

9-701 

L 

IPL 

9-7C0 

1450 

9-703  12MU 

L 

IPL 

9-700 

1460 

J9 

9-701 

L 

IPL 

9-7CC 

1470 

9-705*  9-706 

C 

L 

IPL 

9-700 

1480 

9-706*  0 

L 

IPL 

9-700 

1490 

♦  9-406 

L 

IPL 

9-7CC 

1500 

♦  9-711 

L 

IPL 

9-700 

1510 

*  9-409 

L 

[PL 

9-70C 

1520 

♦  9-729 

L 

IPL 

9-7C0 

1530 

♦  9-412 

L 

IPL 

9-7C0 

1540 

♦  9-707 

0 

L 

IPL 

9-70C 

155C 

9-707  109-746 

L 

IPL 

9-700 

1560 

J160 

L 

IPL 

9-7C0 

1570 

IC9-747 

L 

IPL 

9-700 

1580 

J157 

L 

IPL 

9-700 

1590 

109-901 

L 

IPL 

9-700 

1600 

J161 

L 

IPL 

9-700 

1610 

J60 

L 

IPL 

9-700 

1620 

12HC 

L 

IPL 

9-700 

1630 

J157 

L 

IPL 

9-7C0 

1640 

12M0 

J9 

L 

IPL 

9-700 

1650 

9-711  J60 

L 

IPL 

9-700 

1660 

109-901 

L 

IPL 

9-700 

1670 

J160 

L 

IPL 

9-7C0 

1680 

12HC 

L 

PL 

9-7.0 

1690 

J156 

L 

PL 

9-7C0 

17C0 

109-9  *>6 

L 

PL 

9-7U0 

1710 

J160 

L 

PL 

9-700 

1720 

12H0 

L 

PL 

9-70D 

1730 

109-901 

L 

PL 

9-700 

1740 

J12  7 

L 

PL 

9-700 

1750 

70 

9-712 

L 

IPL 

9-700 

1760 

12HO 

L 

IPL 

9-700 

177C 

109-741 

L 

IPL 

9-700 

1780 

J127 

L 

PL 

9-700 

1790 

70 

9-713 

L 

PL 

9-7C0 

1800 

12HO 

L 

PL 

9-7C0 

1810 

109-742 

L 

IPL 

9-700 

1820 

J127 

L 

PL 

9-700 

1830 

70 

9-714 

L 

IPL 

9-700 

1640 

1C9-745 

9-71a 

L 

PL 

9-700 

1850 

9-712  109-742 

9-715 

L 

PL 

9-700 

I860 

9-713  109-743 

9-713 

L 

PL 

9-700 

1870 

9-714  109-744 

9-715 

L 

PL 

9-700 

I860 

9-715  J157 

L 

PL 

9-700 

1890 

109-922 

L 

PL 

9-700 

1900 

-57- 


J160 

L  I  PL 

9-7*0 

1910 

12H0 

LIPL 

9-7*0 

1920 

J  1  5  9 

LIPL 

9-7*0 

1930 

J155 

J154 

LIPL 

9-700 

1940 

9-71 b  J6C 

LIPL 

9-700 

1950 

PRINT  LIST  FORMAT 

• 

12HU 

LIPL 

9-700 

1960 

* 

109-717 

LIPL 

9-70C 

1970 

AS  EACH  CELL  IS  ASSEMBLED 

# 

J6 

LIPL 

9-7.0 

1960 

ITS  NAME  IS  PUT  ON  THE  PRINT 

• 

J10 

LIPL 

9-70C 

1990 

LIST  9-406. 

• 

70 

J1 

LIPL 

9-700 

2000 

WHEN  A  OATA  TERM  IS  ASSEM- 

• 

1G9-9C1 

LIPL 

9-70C 

2010 

BLED.  THE  SYMBOL  9-408  IS  PUT 

• 

J160 

LIPL 

9-7CC 

2C2C 

ON  THE  PRINT  LIST  JUST  BEFORE 

« 

12HC 

LIPL 

9-7CC 

2030 

THE  NAME  OF  THE  DATA  TERM. 

• 

Jl  56 

LIPL 

9-700 

2C4C 

THIS  IS  NECESSARY  SINCE  THE 

• 

109-908 

LIPL 

9-70  0 

2053 

LISTING  ROUTINE  9-7CC  MUST 

* 

J160 

LIPL 

5-70C 

2C60 

INTERPRETS  A  DATA  TERM  IN  A 

• 

12HC 

LIPL 

9-700 

2070 

DIFFERENT  MANNER  THAN  A  LIST 

* 

J190 

LIPL 

9-700 

2060 

CELL. 

• 

J156 

LIPL 

9-7uC 

2090 

WHEN  A  NF.tf  list  Is  begun. 

0 

109-910 

L'PL 

5-70C 

2100 

THE  EXECUTIVE  ROUTINE  PjTS 

• 

J160 

LIPL 

9-7CC 

2110 

THE  SYMBOL  9-409  ON  THE  PRINT 

• 

12HC 

LIPL 

9-700 

2120 

LIST  JUST  BEFORE  ThE  FIKoT 

0 

J191 

LIPL 

5-70C 

2130 

CELL  OF  THfc  LIST.  *HEN  A  LIST 

• 

Jl  56 

LIPL 

5-7C0 

214C 

IS  TERMINATED.  THE  EXECUTIVE 

0 

109-912 

LIPL 

9-7C0 

2150 

ROUTINE  PUTS  THE  SYMBOL  9-4 1C 

# 

J160 

LIPL 

5-70C 

2160 

JUST  AFTER  THE  LAST  CELL  OF 

* 

12HC 

LIPL 

9-7C0 

2170 

THE  LIST. 

• 

J 1 92 

LIPL 

9-7CC 

2 1 60 

WHEN  A  CARD  IS  READ  BY 

0 

J156 

LIPL 

9-7C0 

2190 

ROUTINE  9-660  ( READ  AND  PRINT 

0 

109-918 

LIPL 

9-70C 

2200 

a  cars i .  this  routine  puts  the 

0 

J160 

LIPL 

5-700 

2210 

SYMBOL  4-412  ON  THE  END  uF  THE 

0 

12  Hi 

LIPL 

9-700 

2220 

PRINT  LIST  FOLLOWED  BY  A 

0 

J193 

LIPL 

9-700 

2230 

LOCALLY  NAMED  COPY  OF  Tnc 

0 

J156 

LIPL 

9-700 

2240 

INTEGER  DATA  TERM  CARD  COUNT. 

0 

40HC 

LIPL 

S-7C0 

2250 

9-413,  THE  LISTING  ROUTINE 

0 

J81 

LIPL 

9-700 

2260 

9-700  MUST  OF  COURSE  ERASE 

0 

109-408 

LIPL 

9-70C 

2270 

THIS  SATA  TERM, 

0 

J2 

LIPL 

9-70C 

2260 

THE  EXECUTIVE  ROUTINE 

0 

70 

9-720 

LIPL 

9-7CC 

2290 

OPERATES  AS  IF  THE  ENTIRE  READ 

0 

J155 

LIPL 

5-7CO 

4  300 

GROUP  WAS  A  LIST  TERMINATED  BY 

0 

J154 

9-716 

LIPL 

9-7o0 

2310 

A  • ND*  OR  'GT*  INSTEAD  OF  A 

0 

9-7174  9-716 

0 

LIPL 

9-7UC 

2320 

•»•»  AS  A  RESULT  UNPARENTH- 

0 

9-7164  C 

LIPL 

9-7*0 

2330 

I2ED  SYMBOLS  (FOR  EXAMPLE  UN- 

0 

4  9-4DB 

LIPL 

9-7UU 

2340 

PARENTHIZCD  LIST  NAVES.  DATA 

0 

4  9-721 

LIPL 

9-7C0 

2350 

TERM  NAMES.  AND  NEUMONIC  ASSI- 

0 

4  9-409 

LIPL 

9-700 

2360 

GNMENTS)  ARE  ASSEMBLED  INTO 

0 

9-7194  9-727 

LIPL 

9-7C0 

2370 

a  list,  therefore  the  listing 

0 

4  9-410 

LIPL 

9-7C0 

2380 

PROGRAM  9-7. c  (AND  ThF  NO-LIST 

0 

4  JC 

LIPL 

9-700 

2390 

SUBROUTINE  9-7601  HAS  THE 

0 

4  9-412 

LIPL 

9-700 

2400 

RESPONSIBILITY  OF  RETJRNING 

0 

4  9-726 

0 

LIPL 

9-700 

2410 

THE  CELLS  OF  THIS  LIST  TO 

0 

9-720  J60 

LIPL 

9-700 

2420 

AVAIBLE  SPACE.  THESE  CELLS 

0 

9-721  J6D 

LIPL 

5-700 

2430 

ARE  IDENTIFIED  oY  FACT 

0 

105-92 V 

LIPL 

9-7.0 

2440 

THAT  THEY  UCCJRc  ON  THE  PRINT 

0 

J160 

LIPL 

9-703 

2450 

LIST  whFRc  THL  LEVEL  COJNT  IS 

0 

12HJ 

LIPL 

9-7.0 

246C 

ZERO.  THE  LEVEL  COUNT  IS 

0 

J156 

LIPL 

9-700 

2470 

INIATIALLV  ZERO.  THE  SYMBOL 

0 

109-936 

LIPL 

9-70C 

2460 

9-4.9  (BEGINNING  OF  SJDLlST) 

0 

J 1 60 

LIPL 

9-700 

2490 

-58- 


* 

ADCS  ONE  TO  THE  LEVEL  COUNT 

* 

12hU 

LIPL 

9-7CC 

2500 

* 

AND  ThE  SYK5CL  9-41  (PNC  OF 

# 

1 .0-90  1 

L  I  PL 

9-70C 

2510 

* 

SUBLIST)  SUBTRACTS  ONE  F R Ob' 

* 

J 1  2  7 

LIPL 

9-700 

2520 

« 

THE  LEVEL  CuUNT. 

* 

7  C 

9-722 

L  I  PL 

9-70C 

2530 

#*##***##4r**TciMHc#»*-ir*#**#*1**  ■«■*■*** 

ir 

12HC 

L  I  PL 

9-7.0 

2540 

109-741 

LIPL 

9-7.0 

2530 

J 1  2  7 

L  1  PL 

9-7.0 

2560 

jr 

7  U 

9-72  3 

L  I  PL 

v-7ou 

2570 

l^HC 

L  I  PL 

9-700 

2  560 

1.9-742 

LIPL 

9-70C 

2590 

J  1  2  7 

LIPL 

9-7.0 

260C 

7  U 

9-724 

LIPL 

9-700 

2610 

109-745 

9-725 

LIPL 

9-700 

2620 

9-7  22 

1  U9-742 

9-72o 

LIPL 

9-7UU 

2630 

9-123 

109-743 

9-725 

LIPL 

9-700 

2640 

9-724 

1.9-744 

9-723 

LIPL 

9-7CC 

2650 

9-725 

J1  57 

LIPL 

9-700 

2660 

109-950 

LIPL 

9-700 

2670 

J 1 6  0 

LIPL 

9-7. C 

2660 

12HU 

LIPL 

9-7.0 

2690 

J 1  5  9 

LIPL 

9-7.0 

2700 

J155 

LIDL 

9-7.0 

2710 

J 1  5  4 

9-716 

LIPL 

9-7.0 

2  72  u 

9-726 

109-748 

LIPL 

9-700 

2730 

1 1  a'25 

LIPL 

9-7.0 

2740 

J 1  2  1 

LIPL 

9-700 

275C 

509-747 

LIPL 

9-700 

2760 

J 1  5  7 

LIPL 

9-700 

2770 

109-901 

LIPL 

9- 7u  U 

f  760 

J  1  6  1 

LIPL 

9-7.0 

2790 

J60 

LIPL 

9-7.0 

2600 

1  2  HO' 

LIPL 

9-7.0 

2  6  1  C 

J  1  5  7 

LIPL 

9-7.0 

2620 

1  7H0 

LIPL 

9-7.0 

2830 

J9 

9-71  b 

LIPL 

9-7.0 

2640 

9-72  7 

4  .  ,v  2  1 

LIPL 

9-7.0 

2650 

1 09-929 

LIPL 

9-70  0 

^d60 

2  0*21 

L  I  PL 

9-700 

2670 

1  >9-1  c  6 

L  I  PL 

9-7.0 

2660 

2. 9-719 

L  I  PL 

9-7.0 

2890 

9-7  16 

L  I  PL 

9-700 

2900 

3  0021 

LIPL 

9-7.0 

291. 

1  .9-72  7 

L  I  PL 

9-700 

2920 

209-719 

9-716 

LIPL 

9-7. C 

2930 

9-728 

4  . .%  2  1 

L  I  PL 

9-7.0 

2940 

1  u  9  -  9  6  7 

L  I  PL 

9-  7  J. 

295C 

2  o  ••  2  1 

L  I  PL 

9-7.0 

F  9  6  0 

1 09-731 

L  I  PL 

v-7  0 

2970 

2  J  Q  -  7  1  9 

L  I  PL 

9-7.0 

2960 

9-716 

LIPL 

9-7.0 

2  9  9C 

3  .  2  1 

L  I  PL 

v  -  7  0 

3  .0 

1  19-126 

L  I  PL 

9-700 

3  C 1  0 

2.9-7  1  5 

9-  7  1  u 

L  I  PL 

9-7.0 

j.2u 

9-729 

J  1  5  6 

L  I  PL 

9-7.0 

3C30 

Jl  5  4 

LIPL 

9-7.. 

3.4. 

9-716 

LIPL 

9-  7o  0 

3050 

J15. 

013  0 

LIPL 

9-7.0 

J  06  0 

9-731 

015  . 

L  1  PL 

9-700 

3  0  70 

0154 

L  I  PL 

9-70  0 

30  fa. 

9-7  16 

L  I  PL 

9-700 

3  0  90 

• 

59- 

J155 

LI  PL 

9-7v.  J 

3100 

J154 

9-716 

L  I  PL 

9-700 

3110 

9-741+11 

LIPL 

9-700 

3120 

9-742+210  I 

LI  PL 

9-7u0 

3130 

9-743+211  1 

LIPL 

9-700 

3140 

9-744+212  1 

LIPL 

9-700 

3150 

9-745+213  1 

LIPL 

9-7GC 

316C 

9-746+01 

110 

LIPL 

9-7*3 

3170 

9-747+2 1CARD 

LIPL 

9-700 

3183 

9-746+Cl 

111 

LIPL 

9-7*0 

3190 

S2R-- SKIP  CCMS  CR  SET  COPY 

9-750  9-5 1G 

LIPL 

9-750 

3200 

709-761 

LIPL 

9-75G 

3210 

IF  11*25  ♦  1  IS  A  •  SET  COPY 

11W9 

LIPL 

9-750 

3220 

flag  ano  find  the  next  charact 

1C 

LIPL 

9-750 

3230 

ER  AFTER  lw’25  ♦  1. 

J2 

LIPL 

9-750 

3240 

OTHERWISE  SKIP  OVER  THE 

709-752 

LIPL 

9-75C 

3250 

COMMENTS*  reading  cards  if 

1 0J4 

LIPL 

9-75C 

326C 

NECESSARY,  AND  STOP  AT  THE 

209-404 

9-510 

LIPL 

9-76C 

3270 

FIRST  NON-BLANK  CHARACTER  AFTER 

9-751  11*9 

LIPL 

9-750 

3260 

THE  NEXT  • 

1C 

LIPL 

9-7sC 

3293 

J2 

LIPL 

9-75C 

3300 

7G 

9-510 

LIPL 

9-750 

3310 

9-752  11W25 

LIPL 

9-750 

3320 

10* 

LIPL 

9-760 

3  3  30 

J165 

LIPL 

9-750 

334C 

J8 

LIPL 

9-760 

3350 

70 

9-510 

LIPL 

9-750 

3360 

9-660 

LIPL 

9-75C 

3  3  7C 

J 1  66 

LIPL 

9-760 

3360 

709-752 

LIPL 

9-760 

3  390 

10' 

LIPL 

9-760 

34J0 

J  2 

LIPL 

9-75C 

3410 

709-752 

9-510 

LIPL 

9-750 

3420 

S/R— ADD  (01  TO  LIST 

9-763  01W1 

LIPL 

9-760 

3430 

7C 

9-761 

LIPL 

9-760 

3440 

IF  THE  CURRENT  CELL  IS  NON¬ 

9-520 

LIPL 

9-760 

3450 

EMPTY  A  NEW  CURRENT  CELL  IS 

40H0 

LIPL 

9-760 

3460 

CREATED  AND  THE  NAME  OF  THIS 

live 

LIPL 

9-760 

3470 

NEW  CEIL  IS  MADE  THE  LINK  OF 

J!  *7 

LIPL 

9-76C 

3480 

THE  OLD  CELL. 

20W3 

9-762 

LIPL 

9-7&0 

349C 

IF  THE  CURRENT  CCLL  IS  EMPTY 

9-761  10J3 

LIPL 

9-7b0 

3500 

THE  EMPTY  flag  is  reversed. 

20*1 

LIPL 

9- 7 1 C 

3  5 1 C 

IN  ANY  CASE  THt  C JRRENT  CELL  IS 

9-762  119-4J7 

LIPL 

9-760 

3620 

PUT  ON  ThL  PRINT  LIST  AND  IF  P 

UWO 

LIPL 

9-7eO 

3530 

AND/GR  0  IS  NOT  NINE  ThEY  ARE 

J65 

LIPL 

9-760 

3540 

RESET  TO  NINE  AFTER  THE  CURRENT 

119-407 

LIPL 

9-7t0 

3550 

CELL'S  P  AND  3  ARE  SET.  IF  P 

J60 

LIPL 

9-76C 

3560 

AND  0  WERE  NINE  TO  BEGIN -WITH 

209-407 

LIPL 

9-760 

3570 

21  WO 

LIPL 

9-760 

3580 

THEN  (01  IS  STORED  WITH  ITS 

11*3 

LIPL 

9-760 

3590 

GRGINAL  SYMBOL  TYPE.  UNLESS 

10  9 

LIPL 

9-760 

3600 

DATA  MODE  FLAG  IS  -.  IN 

J2 

LIPL 

9-7oC 

3610 

WHICH  CASE  3  IS  SET  ZERO. 

70 

9-763 

LIPL 

9-760 

3620 

11*3 

LIPL 

9-760 

3630 

11. VC 

LIPL 

9-760 

364C 

J195 

LIPL 

V-760 

3650 

10  9 

LIPL 

9-760 

3660 

20W3 

LIPL 

9-760 

3670 

11W2 

LIPL 

9-760 

366C 

60 


S/R — ADD  AN  EMPTY  CELL  TO  LIST 
IF  CURRENT  CELL  IS  EMPTY  DO 
NOTHING* 

CTH£R*ISt  A  NE*  CELL  IS  CREATE^ 
AND  THE  NAME  OF  THIS  CELL  IS 
MADE  THE  LINK.  OF  THE  OLD  CELL 


AND  THE  EMPTY  FLAG  IS  REVERSED. 
S/R— ERASE  PRINT  LIST 


S/R— PRINT  NtUMONIC*  INTERNAL  TAl>LE 


10  9 

LIPL 

9-760 

3690 

J  2 

LIPL 

9-760 

3700 

7G 

0 

LIPL 

9-760 

3710 

11W2 

LIPL 

9-76C 

3720 

llViC 

LIPL 

9-760 

3730 

J194 

LIPL 

9-760 

3740 

10  9 

LIPL 

9— 760 

3750 

20*2 

C 

LIPL 

9-760 

3760 

9-763  019-411 

LIPL 

9-760 

3770 

70 

0 

LIPL 

9-7o0 

3760 

10  0 

LIPL 

9-760 

3790 

1  lW'C 

J195 

LIPL 

9-7o0 

3600 

9-770  0141 

LIPL 

9-770 

3810 

70 

0 

LIPL 

9-77C 

3820 

9-520 

LIPL 

9-77  j 

36  30 

40H0 

LIPL 

9-770 

3840 

UWC 

LIPL 

9-770 

3850 

J197 

LIPL 

9-770 

3660 

1CJ4 

LIPL 

9-770 

3870 

20W1 

LIPL 

5-770 

3660 

20WC 

0 

LIPL 

9-770 

3690 

9-780  1C9-4C6 

LIPL 

9-780 

3900 

1CJ9 

LIPL 

9-7o0 

3910 

J50 

LIPL 

9-760 

3920 

10J4 

LIPL 

9-780 

3930 

209-417 

LIPL 

9-760 

3940 

9-781  J60 

LIPL 

9-780 

3950 

70 

9-782 

LIPL 

9-78C 

3960 

5C9-406 

LIPL 

9-780 

3970 

609-407 

LIPL 

9-780 

3980 

J75 

LIPL 

9-760 

3990 

J71 

J3C 

LIPL 

9-760 

4000 

9-782  12H0 

LIPL 

9-760 

4010 

109-785 

LIPL 

9-780 

4020 

J6 

LIPL 

9-76C 

4030 

J10 

LIPL 

9-780 

4040 

709-783 

LIPL 

9-760 

4050 

J1 

9-781 

LIPL 

9-780 

4060 

9-7e3  12HC 

LIPL 

9-780 

4070 

01  WO 

9-781 

LIPL 

9-780 

4080 

9-7e5*  9-706 

C 

LIPL 

9-780 

4090 

9-786^  C 

LIPL 

9-760 

4100 

♦  5-408 

LIPL 

9-760 

4110 

♦  J6C 

LIPL 

9-760 

4120 

♦  9-409 

LIPL 

9-780 

4130 

♦  9-788 

LIPL 

9-760 

4140 

♦  9-410 

LIPL 

9-7eU 

4150 

♦  J30 

LIPL 

9-780 

4160 

♦  5-412 

LIPL 

9-760 

4170 

♦  9-787 

0 

LIPL 

9-780 

**180 

9-7e7  J60 

LIPL 

9-760 

4190 

12HG 

J9 

LIPL 

9-780 

4200 

9-788  lCJe 

J50 

LIPL 

5-780 

4210 

9-790  J154 

LIPL 

5-790 

4220 

019-418 

LIPL 

9-75C 

4230 

709-791 

LIPL 

5-790 

4240 

109-795 

LIPL 

9-790 

4250 

209-418 

LIPL 

9-7S0 

4260 

1C9-200 

LIPL 

9-790 

4270 

1GJ157 

LIPL 

5-790 

4280 

-61- 


J  1  ^  ^ 

LIPL  *  -  7  9  C 

4  2  90 

9-791  019-419 

LIPL  9-790 

4300 

709-792 

LlPL  9-79C 

4310 

109-797 

LIPL  9-790 

4  32  0 

209-4  1  9 

LIPL  9-79 j 

-3  30 

1 C  9-9  b  J 

LIPL  9 -  7  9  C 

4  3  4  0 

J160 

LIPL  9-7*0 

4  J5v 

109-210 

LIPL  9  —  7  9  w 

-  3  6  o 

1CJ1 5  7 

LIPL  9-790 

4370 

0  1  o 

9-793  LIPL  9-790 

4  3  b  C 

9-792  1GJC 

LIPL  9-790 

4390 

2^9-419 

LIPL  9-79C 

440^ 

9-793  119-403 

LIPL  9-79u 

4410 

109-4  ju 

LIPL  9-790 

4  4  2  0 

J  5  1 

LIPL  9-790 

4430 

J1  5  o 

LIPL  9-7*0 

—  4  4  0 

J  1  3  4 

LIPL  9-790 

445b 

9-794  C 1 9-4  1  o 

L.PL  9-790 

4  4  6  0 

019-4  1  9 

LIPL  9-79C 

-470 

7  v>  J  3  1 

LIPL  9-790 

J155 

LIPL  9-790 

44  90 

J1  54 

9-794  LIPL  9-79„ 

450  o 

9-79  5  1 1  /.  0 

lIPL  9-79C 

451  C 

J8  1 

LIPL  9-790 

4520 

709-796 

L I  PL  9-790 

45  30 

J  1  5  7 

LIPL  9-79C 

454Q 

1C9-9C8 

LIPL  9-790 

4550 

J  1  6  0 

LIPL  9-790 

4560 

1  lwO 

LIPL  9-790 

4570 

J82 

LIPL  9-790 

4  5  b  0 

J  1  5  6 

LIPL  9-790 

45«u 

11  wC 

LIPL  9-790 

460  0 

J6C 

LIPL  9-79C 

4610 

J60 

LIPL  9-790 

4620 

2  0  /'  0 

0  LIPL  9-79C 

4630 

9-796  1 0 J  3 

LIPL  9-790 

4640 

209-4  1  8 

0  LIPL  9-790 

4650 

9-797  109-960 

LIPL  9-79C 

466  0 

J 1  6  0 

LIPL  9-79C 

46  7  0 

1  1  W 1 

LIPL  9 -  7  9  C 

4680 

J  6  1 

LIPL  9-790 

4690 

7o9-798 

LIPL  9-790 

4  70  0 

109-799 

LIPL  9-790 

4710 

J1  57 

LIPL  9-790 

4720 

J1  56 

LIPL  9-790 

-730 

1C9-968 

LIPL  9-79u 

4740 

J  1  6  j 

LIPL  9-790 

4750 

1  1W1 

LIPL  9-790 

4  76  C 

JP  2 

LIPL  9-790 

4770 

J1  56 

LIPL  9-790 

4  7  b  0 

11*1 

LIPL  9-790 

479C 

J60 

LIPL  9-790 

48  OC 

J60 

LIPL  9-790 

4810 

20  W1 

0  LIPL  9-79C 

48  2  C 

9-798  10JC 

LIPL  9-790 

4830 

209-419 

J  4  LIPL  9-790 

4640 

9-799+2 18- 

LIPL  9-790 

4850 

9801  -01 

01  LIPL  C0NSTANTS486C 

9902  -01 

02  LIPL  C0N3TANT84870 

9803 

-Cl 

03 

9804 

-01 

04 

9900 

+  01 

oc 

99C 1 

+  01 

01 

9902 

+  01 

02 

9903 

+  01 

03 

9904 

+  01 

04 

9905 

+  01 

05 

9908 

+  01 

Gti 

9910 

+  01 

10 

9912 

+  01 

12 

9918 

+  01 

lb 

9922 

+  01 

22 

9929 

+  01 

29 

9936 

+  01 

36 

9950 

♦  01 

50 

9957 

+  01 

57 

9960 

+  01 

60 

9968 

+  01 

bo 

9981 

+  01 

SI 

L 1  PL  CONSTANT  S4860 
LIPL  CONS  T  A  NT  S4b  90 
L I  PL  C0NSTANTS4900 
LIPL  CONSTANT  S49  1  0 
LIPL  CONSTANT  S49  2 0 
LIPL  CONSTANT  S493C 
LIPL  CONSTANT  S494C 
LIPL  CONSTANT  S495C 
LIPL  CONST  ANT  S496Q 
LIPL  CCNSTANTS4970 
LIPL  CONSTANT  S49  S  0 
LIPL  CONSTANT S49 90 
LIPL  CONSTANT  S  5000 
LIPL  CONSTANT  S501  C 
LIPL  CONST  ANTSs020 
LIPL  CONSTANTS5030 
lipl  Constant s5040 
LIPL  CONSTANT  S5C  50 
LIPL  CONSTANT  i  50  60 
LIPL  CONST  ANT  S5C  70 
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